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Grüß Gott—Gruezi—Guten Tag 


Hier ist sie, die erste 
Ausgabe von TI REVUE - Der 
Zeitschrift -für alle Freunde 
und Fans der Modelle von 
Texas Instruments. Vom 
legendären 99er bis zum 
neuen PC. > 

Warum? Ganz einfach. TI hat 
im vergangenen Jahr allein 
im deutschsprachigen Raum 
weit über 100.000 99er 
verkauft und abrupt die 
Produktion eingestellt. Die 
Besitzer dieses Micros sind 
allein und bleiben allein. 
Sie blieben es, den jetzt 
gibt es TI-REVUE, die 
Zeitschrift, randvoll mit 
Tips, Tricks, Tests. 
Geschrieben von Fans für 
-- Fans. 

'Damit nicht genug. Wie zu 
erfahren war, soll TI - aus 
Steuergründen, nicht aus 
eigenem Antrieb - Lastwagen 
voller neuer Module, Boxen, 
Cartridges und sonstiger 
Peripherie auf den Müll 
gekippt haben. Unter 
gestrenger Aufsicht des 
Finanzamtes. Und daher fehlt 
es heute schon am Nötigsten, 
etwa einem Ersatzkabel für 
den Kassettenrekorder. 

TI REVUE wird hier 
Se1bstbau-Tips und 
Einkaufshilfen geben, 
weltweit vorhandenes Zubehör 
aufspüren und Adressen 
nennen. Zum Beispiel: Die 2. 
Floppy für unter 400,— Mark 
für Ihren 99er. Nachzulesen 
in dieser Ausgabe. Oder der 
Möglichkeit, ihn bis zu 
128 K RAM aufzumöbeln. 
Nachzulesen in dieser 
Ausgabe. Schauen Sie mal 
nebenan ins Inhalts¬ 
verzeichn i s ! 

Wer schreibt hier: Zum 
Beispiel Sie, liebe Leser, 
den Sie sind herzlichst zur 
Mitarbeit aufgerufen. Zum 
Beispiel TI-Experten wie 
Thomas M.Fiedler, Erich 
Reitinger, Magister Karl 


Hagenbuchner, vom Tl-Journal 
Wien. Oder Tl-Insider wie 
Reiner Ziegler, Alexander 
Berger, Christian Roch, 

Klaus Herdin, Pieter Coates. 
Oder, oder, oder. Aber auch, 
und darauf sind wir 
besonders stolz, Mitarbeiter 
von Texas Instruments, wenn 
es um Ihre Fachfragen, Ihre 
■'^Probleme - aber auch um die 
neuen Produkte aus dem Hause 
TI geht. Schreiben Sie uns, 

. - wir werden versuchen, zu 
"-helfen, wir werden auf jeden 
— .Fall aber antworten! ; 

Eines unserer größten Ziele: 
Die Einrichtung einer 
-Datenbank mit "schwarzem 
Brett" r mit deren Hilfe 

er direkt miteinander, 
-kommunizieren können. Per TI 
99/4 A oder TI PC. Doch das 
wird noch dauern, zumal die 
notwendigen Modems immer 
noch Mangelware sind. Die 
Post ist da auch noch nicht., 
ganz fertig, aber: Wir ........ 

verlieren nicht die 
Hof f nung. 

Was wir sonst noch wollen ? 
Ihnen mit dieser Zeitschrift 
ein Forum für IHR Gerät 
verschaffen. Sei es der PC 
oder der 99/4A. Und auch die 
Taschenrec hner-Progr amme 
werden nicht zu kurz 
k ommen. 

Bis zum nächsten Heft 
Ihre TI-REVUE 

PS: Bevor wir es vergessen: 
Sind Sie mit dem Heft 
zufrieden, sagen Sie es 
bitte weiter, allen 
TI-Besitzern. Sind Sie es 
nicht, sagen Sie es uns. 
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TIPS & TRICKS 


Rekorderkabel 
selbst gelötet 


Disketten beidseitig nutzen 

Viel Geld kosten uns als Computernutzer die vielfach noch 
überteuerten Disketten. 

Eine Möglichkeit diese Kosten glatt zu halbieren, bietet ein 
Disketten-Umdreh-Gerät, das von einer Hamburger Firma Für 
ca. 20,— bis 25,- DM angeboten wird. 

Wenn Sie diesen Diskettenlocher erworben haben, werden Sie 
sicher gemerkt haben, daß es doch nicht ganz so einfach ist. 

Die Schreibschutzmarke am Diskettenrand auszulochen genügt 
leider nicht. Nachdem unser Diskettenlaufwerk nur Für einseiti- 

§ en Betrieb ausgelegt ist, wir somit die Diskette drehen müssen, 
efindet sich das Indexloch nicht mehr am richtigen Platz, son¬ 
dern, vom Mittelloch aus gesehen, genau gegenüber. Sie müssen 
also auch dieses Indexloch nachstanzen. Aberbitte nicht mit 
Gewalt durch die ganze Diskette hindurch, sondern nur vorne 
und hinten ie ein passendes Loch in die Hülle. Als Schablone 
bietet sich der Versandpappendeckel des Laufwerkes geradezu 
ideal an. Also vorsichtig mit einer Lochzange (evtl, geht auch 
eine Schere) an der mittels Schablone gekennzeichneten Stelle 
ie ein Loch geschnitten. Verkratzen Sie jedoch die magnetisch 
beschichtete Oberfläche nicht, denn sonst war alles umsonst. 
Nun noch Seite 2 initialisieren und losgehen kann’s. 

Noch ein wichtiger Hinweis zum Schluß. Benutzen Sie Für diese 
„Operation“ NUR Disketten, die ausdrücklich als DOPPELSEI¬ 
TIG gekennzeichnet sind. Single Sided Disketten funktionieren 
zwar meistens auch, jedoch passiert es hier bei einigen Herstel¬ 
lern, daß die Rückseite gar nicht beschichtet wird und somit 
nichts speichern kann, ja schlimmer noch, unter ungünstigen 
Umständen wirkt diese Seite auf den Schreib/Lesekopf Ihres 
Laufwerkes wie Schmirgelpapier, womit dieser dann wohl die 
längste Zeit seinen Dienst getan haben dürfte. 

Die zweite Gefahr besteht darin, daß manche einseitigen Dis¬ 
ketten so dünn sind, daß das Magnetfeld des Schreib/Lesekop¬ 
fes durch die Diskette hindurchschreibt und die Daten auf der 
anderen Seite vernichtet. 

Also dann, viel Spaß beim Diskettenknabbern. 


Viele jener TI99-Besitzer, die um die Jahreswende zu den Aus¬ 
verkaufspreisen noch rasch ein Gerät erwarben, stehen seither 
vor dem Problem, keine Kabel für den Anschluß des Kassetten¬ 
rekorders zu bekommen. 

Diesem Mangel kann aber leicht selbst abgeholfen werden. Mit 
ganz wenig Aufwand kann dieses für den Betrieb doch unerläß¬ 
liche Bauteil (mit dem Lötkolben als einzigem Arbeitsgerät) 
selbst gemacht werden, wobei als positiver Nebeneffekt die 
Preisgünstigkeit zusätzlich motivierend sein müßte. 

Was benötigen Sie? Zunächst für den Anschluß am TI einen 
neunpoligen Subminiaturstecker mit Gehäuse, einen runden 
Meter sechspoliges Kabel (abgeschirmt erwünscht, aber keine 
unbedingte Anforderung), sowie die an Ihrem Rekorder not¬ 
wendigen DIN- oder Klinkenstecker. 

Sollte Ihr Rekorder keine REMOTE-Buchse besitzen (und wenn 
Sie ein bißchen Elektronikkenntnisse besitzen), können Sie 
diesen Mangel gleich in einem beheben suchen Sie das Rekor¬ 
dernetzteil - irgendwo muß ein deutlich als Trafo erkennbares 
Bauteil stecken verfolgen Sie die Sekundärleitungen bis über 


Autostart per Kassette 

Extended Basic beinhaltet einen undokumentierten, aber im* 
pementierten Befehl, der alle Kassetten-Benützer interessieren 
wird. RUN „CSl“ kann entweder als Statement oder als Be¬ 
fehl verwendet werden. Als Statement verwendet, wie z.B. 
380 RUN „CSl“ 

besteht die Möglichkeit Programme zu wechseln, so kann 
z.B. ein Programm ein anderes auf rufen. Der Bildschirm gibt 
dazu die üblichen Ladeanweisungen. Wenn das Programm ge¬ 
laden ist, startet es der Computer automatisch. Dieser Befehl 
ist gleich den Befehlen OLD CSl und RUN, aber nun ist er 
unter Programmkontrolle. 


den Gleichrichter hinaus und trennen Sie die positive Span¬ 
nungsversorgung auf. Von der Auftrennungsstelle weg führen 
Sie zwei Anschlüsse zu einer neu zu legenden Buchse (eventuell 
an unbenutzte Pins, falls Sie als MikroToneingang eine Fünfpolige 
DIN-Buchse haben). 


Programmschutz 

Verrate Protektion aufheben Für nur DM 50,— 

Liste jedes Programm, auch geschützte für nur DM 10,—je 
Programm. 

Diese oder ähnliche Kleinanzeigen kennen Sie sicherlich. Die 
Redaktion von TI-Aktuell will Ihnen helfen, sich diese DM 50. 
zu sparen. „ 

Die leidige Fehlermeldung: „PROTECTION VIOLATION 1 
können Sie auch selbst aufheben, wenn Sie im Besitz sind: 

— TI 99/4A Konsole 

— 32 K Erweiterung 

— Extended Basic 

Laden Sie also das Programm wie gewohnt mit OLD. 

Der geheimnisumwobene Befehl lautet dann: 

CALL INIT ENTER 

CALL LOAD (-31931,0) ENTER 

Übrigens, genauso einfach kann man auch nachträglich Protec- 
ted eingeben. Der Befehl lautet dann: 

CALL LOAD (-31931,128) 

Zufrieden?! 


Der TI schaltet die positive Versorgungsspannung mittels eines 
Schalttransistors, der von einem Optokoppler getrieben wird, 
durch (klappt es nicht auf Anhieb, vertauschen Sie die zum TI 
führenden Anschlüsse!), die REMOTE-Leitung ist polar, je 
ein Anschluß zu Kollektor und Emittor des Schalttransistors 
führt. 




Anschluß des Cassettenrekordersteckers: , 

1 Rekorder 1 Motorsteuerung Positiv 

2 Rekorder 1 Motorsteuerung Masse 

3 Signalmasse (Ausgang) ... -TY 

4 Ausgang für Tonverstarker (z.B. Stereoanlage) 

5 Signalausgang Rekorder 1 und 2 

6 Rekorder 2 Motorsteuerung Positiv 

7 Rekorder 2 Motorsteuerung Masse 

8 Signaleingang Rekorder 1 

9 Signal - Masse (Eingang) 




- ? 
4 - 5 


) 
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Platz im Speicher schaffen 

Wollen Sie wissen wieviel Speicherplatz Ihr Programm ein¬ 
nimmt? Verwenden Sie diesen kurzen Zweizeiler für die 
Antwort. 

1 A=A+8 

2 GOSUB1 
RUN 

Der Computer läuft bis der Speicher voll ist, dann erscheint 
MEMORY FULL IN 1 am Bildschirm. Nun tippen Sie 
PRINT A 

und die erscheinende Zahl gibt Ihnen ungefähr den noch zur 
Verfügung stehenden Speicnerraum in BYTE an. 



TIPS FÜR PERIPHERIE-BESITZER 

Viele von Ihnen werden sich schon darüber geärgert haben, daß 
sie mit dem Vollausbau Speicherplatz verloren haben. 

Das hört sich für Uneingeweihte nun paradox an, aber es ist eine 
Tatsache! Speicherplatz muß etwa für die Diskettendateien re¬ 
serviert werden etc. Schon beim Erwerb des XBasic-Modus 
muß der Erstaunte feststellen, daß die neue Programmiersprache 
ihm nicht nur finanzielle Einbußen beschert. Zugleich verab¬ 
schiedet sich im XBasic-Modus etwa 1/11 des Speicherplatzes. 

Nun, dieser kleine Verlust wird bei weitem ausgeglichen, eben¬ 
so wie der Speicherplatz-Schwund durch die Disk-Drives bei 
weitem durch die Vorteile dieses schnellen Festspeichers ausge¬ 
glichen werden. Außerdem haben Sie ja jederzeit die Möglich¬ 
keit, durch “CALL FILES (1)” und “NEW” die Zahl der vor¬ 
bereiteten Dateien auf 1 zu beschränken und somit über 100U 
Bytes zu gewinnen! 

Aus alldem geht hervor, daß der größtmögliche Speicherplatz 
bei angeschlossenen Disk-Drives in Basic nach der Exekution 
des obigen Befehls erreicht werden kann. 

Leider naben gerade gute Basicprogramme oft die unangenehme 
Eigenschaft sich durch vollständiges Nutzen des Speicherplat- 
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zes auszuzeichnen. Das heißt, das Programm läßt sich mit obi¬ 
ger Prozedur gerade noch laden (50 — 54 Sektoren auf der Disk), 
sobald der Computer jedoch beginnt, zu dimensionieren, erhal¬ 
ten Sie ein „MEMORY FULL IN XXXXX“. 

Das haben wohl Disk-Besitzer schon mit Frust zur Kenntnis 
nehmen müssen. Nun ist es möglich, mit einem CALL LOAD 
(-31 888,63,255) ein sinngemäßes CALL FILES(O) durchzufüh¬ 
ren, wenn anschließend das Programm in einer Zeile editiert 
wird. Um Mißverständnisse zu vermeiden: CALL LOAD geht 
nur mit Speichererweiterung oder mit dem Minimem-Modul! 

Sie haben jetzt also die Möglichkeit, mit dem Minimemory- 
Modul extrem lange Basicprogramme zuerst von Disk zu laden, 
dann die Disk-Drives abzuschalten und das Programm zu star¬ 
ten, nachdem Sie eine Zeile verändern und wieder diese Ver¬ 
änderung rückgängig machen (Editieren). Jedoch hat dieser 
Befehl seine Tücken und es war für uns immer ein Glücksspiel, 
die richtige Prozedur zu finden. 

Jetzt erreichte uns über den Ozean eine fast perfekte Lösung 
des Problems von Craig Miller. Dazu nun das Kochrezept! 

Man nehme: Einen voll ausgebauten Ti-99/4A (Memexp, Disk, 
Minimem-M). Jetzt wählt man mit angestecktem Minimem Ti- 
Basic und tippt „CALL INIT“. Vorsicht! Damit wird der 
Inhalt des Mini Memory Modul gelöscht. Gleichzeitig „erkennt“ 
der Mini Memory Modul die Speichererweiterung. 

Jetzt wird das Basicprogramm geladen: “OLD DISK 1.PRO¬ 
GRAMM“. 

Der nun folgende Befehl ist der Schlüssel: „SAVE EXPMEM2“! 
Damit wird das Programm in die 24 Kb der Speichererweite¬ 
rung verlegt, die das MMM als Expmem2 adressiert. 

CALL LOAD (-31888,63,255) veranlaßt den Ti-99, keine 
Dateien freizuhalten. Jetzt geben Sie „NEW“ und „ENTER“ 
ein. Jetzt erst wurde Speicherplatz im VDP-RAM verfügbar 
gemacht. 

Da Basic-Befehle die Speichererweiterung nicht ansprechen, 
ist nun Ihr Basicprogramm immer noch sicher in Expmem2 
aufgehoben (A0Ö0 bis FFFF). 

Der nächte Befehl lautet daher: “OLD EXPMEN2” und das 
Programm wird aus der Memexpansion gelesen. Sie haben 
jetzt das Programm zweimal! Einmal in Expmem2 und ein¬ 
mal im Arbeitsspeicher Ihres Computers. 

Nun sollte auch das größte Basicprogramm problemlos exe¬ 
kutiert werden. 

Viel Vergnügen beim Experimentieren und Editieren und 
Programmieren wünscht allen Ti-Fans: 

E. Reitinger 


Datenmanagement-System 
für den TI 99/4A 

Am deutschen Markt wird seit kurzer Zeit ein Programmpaket 
unter dem Namen „DAMAST“ angeboten, das als elektronischer 
Karteikasten funktioniert. 

Als Zielgruppe werden in erster Linie Vereine, Makler und klei¬ 
nere Unternehmen genannt. 

TI Aktuell hat sich die Demonstrationsversion einmal angesehen. 
Die Programme sind in Extended Basic geschrieben. Assembler 
Unterprogramme sind, um kürzere Bearbeitungszeiten zu erzie¬ 
len, geplant. Jeder Datensatz kann bis zu 42 Felder besitzen. 

Bis mehrere Hundert Datensätze sollen möglich sein. 

Die Programmführung erfolgt Menügesteuert, somit war es uns 
nach kurzer Zeit bereits möglich, mit dem Vorführsystem zu 
arbeiten. 

Die Ein- und Ausgabe erfolgt über Bildschirmmasken, die selbst 
festgelegt werden können. Der Ausdruck von Rundbriefen nach 
Auswahlkriterien sowie Adressaufklebern ist möglich. 

Wie bei einem komplexeren System nicht anders zu erwarten, 
benötigt der Anwender bereits eine etwas umfangreichere Ge¬ 
räteausstattung: 

— TI 99/4A Konsole 
— Extended Basic 

— 32 K Speicher 

— mind. 1 Disklaufwerk 
— RS 232 mit Drucker 

Ganz billig ist der Spaß auch nicht. Voll ausgebaut beträgt der 
Softwarepreis derzeit ca. 690,— DM. 


TIPS & TRICKS 


Forth für den TI 

Nachdem dem amerikanischen 99’er-Userjournal schon seit 
einigen Monaten zu entnehmen war, daß dort ein von TI selbst 
vertriebenes Modul mit der Programmsprache FORTH zu kau¬ 
fen ist, konnte nun durch einen Direktimport diese neuerdings 
stark aufgewertete Programmsprache angeschafft werden. Da¬ 
mit ist nun neben Basic, XBasic, Logo, Pascal und Assembler 
eine weitere Sprache am TI möglich geworden. 

Was bringt FORTH? Da FORTH in der Mitte zwischen Assemb¬ 
ler und den bekannten Hochsprachen anzusiedeln ist, bringt 
FORTH primär einmal einen unglaublichen Gewinn an Ge¬ 
schwindigkeit gegenüber BASIC, speziell TI-Basic. Ein nach¬ 
folgend aufgelisteter Benchmark-Test soll dies mehr als deut¬ 
lich unterstreichen. 

Diesem Geschwindigkeitsgewinn stehen allerdings gravierende 
Fakten gegenüber: FORTH kann speziell am TI nur bei bereits 
guten Kenntnissen von Assembler programmiert werden, da 
fortgesetzt auf Systemadressen zugegriffen wird. Jede geplante 
Operation ist in allen Konsequenzen durchzudenken, ein ein¬ 
faches Drauflosprogrammieren wie in Basic führt in keinem 
Fall zum Ziel. 

FORTH-Programme sind ähnlich schwer zu lesen wie Assemb¬ 
lerprogramme, die Dokumentation ist der wichtigste Pro¬ 
grammteil. FORTH verlangt auch ein neues TI-Gefühl, denn 
die Sprache verwendet UPN-Eingabe, wie sie sonst nur von 
HP-Geräten bekannt ist. FORTH verwendet kaum Variable, 
sondern legt alles in Stacks ab, mit denen gearbeitet wird. 
(Anklänge an die TI-Taschenrechnerserie SR56, TI58 u.ä.) 

Dies klingt sehr kompliziert und man muß zugeben: Es ist 
relativ schwer, sein erstes laufendes FORTH-Programm zu 
schreiben. Was macht nun FORTH gerade am Tfaber so 
interessant? 

Neben dem völlig überraschenden Tempo einige erstaunliche 
Eigenschaften: Man bekommt mit Einwortbefehlen die Mög¬ 
lichkeit, zwischen Text-, Grafic- und Bit-map-Mode umzu¬ 
schalten! Grafik wird blitzartig erstellt, FORTH unterstützt 
selbstverständlich alle File-Operationen an Diskettenlaufwerk 
und Druckerausgaben, Sprites und Ton können auch ange¬ 
sprochen werden. 

Sicherlich aber am wichtigsten ist die Erstellung eines bild¬ 
schirmorientierten Editors, in dem der Cursor mittels der 
Pfeiltasten auf jeden Bildschirmpunkt gesetzt werden kann 
und die Eingabe dort erfolgt (wie am Tl-Writer). 

Die wohl am bemerkenswerteste Eigenart von FORTH ist, 
daß jedes einmal eingegebene Programm ab der Eingabe ein 
fixer Bestandteil des Betriebssystems wird. Somit wird das 
Betriebssystem nach jedem Einsatz größer. Es können aller¬ 
dings mit dem Schlüsselwort FORGET Befehle außerhalb des 
geschützten Katalogs wieder gelöscht werden. 

Wohl am einfachsten zu programmieren sind Sprachübersetzer: 
So meldet sich FORTH nach Eingabe von 
: BAUM. “TREE”; 

bei jeder Eingabe von “BAUM” sofort mit “TREE” ok. 

Welche Konfiguration ist für FORTH notwendig? Für die uns 
zur Verfügung stehende Version ist Diskettenlaufwerk, RAM 
Expansion und XBasic-Modul notwendig. . 

Nun zum angegebenen Benchmarktest. Die Basicversion be¬ 
nötigt für einen Durchlauf 220 Sekunden, die FORTH-Version 
5.3 sec. 

100 N = 1000 
110 FOR X = 10 TO 99 
120 FOR Y = 0 TO 99 
130 IF (X+Y)*(X+Y) = NTHEN PRINT N 
140 N = N+l 
150 NEXTY 
160 NEXTX 
BASE § DEC1MAL : TASK: 

2 LOAD 3 LOAD (#IN, BELL) 

( HOUSE#S RUN BENCHMARK ONCE) 

: HOUSE#S 1000 1 00 10 DO 100 0 DO DUP J I + 

DUP = 

IF DUP . ENDIF 1+LOOP LOOP DROP: 

( TIMEIT : RUN BENCHMARK MANY TIMES) 

: TIMEIT CR CR . “House Numbers Benchmark” 

CR CR . “How many times? ” 

#IN DROP 
1 + 1 DO CR I. 

HOUSE#S LOOP BELL: 

Der Programmaufruf erfolgt dann mit TIMEIT 

Das Umschalten zwischen den einzelnen Betriebsmoden des 


TI99 wird z.B. durch die Programme TEXTMODE und 
GRAPHICSMODE ermöglicht: 

. CLS 0C EMIT; 

: TEXTMODE 0F0 DUP 83D4 C! 1! VDPREGISTER 
28 SCREEN-WIDTH! 13 7! VDPREGISTER CLS 
84FC 8484 8484 FC84 8 0 DO 1 F 8 * 800 + 1 + 

! VDP 2 + LOOP; 

: GRAFICSMODE 0E0 DUP 83D4 C! 1! VDPREGISTER 
20 SCREEN-WIDTH! CLS 3A0 380 DO 13 I C! VDP 
LOOP 380 300 DO 0 I C! VDP LOOP: 

Um nun aus einem Modus in den anderen zu kommen, müssen 
lediglich die Schlüsselworte TEXTMODE oder GRAPHICSMODE 
eingegeben werden. Jene unter Ihnen, die mit Assembler ver¬ 
traut sind, werden in den angegebenen HEX-Zahlen mehr oder 
minder vertraute Werte wieoererkennen, die auch beim Assemb¬ 
lerprogramm zum TEXTMODUS gesetzt werden müssen. 

Wie kurz doch wieder manches FORTH-Programm relativ kom¬ 
plexe Probleme löst, soll das abschließende Programm demon¬ 
strieren: ein HEX-Dump, der neben der Adresse auch noch an¬ 
gibt, ob der gepeekte Wert zufällig auch ein druckbares ASCI1- 
Zeichen darstellt: 

( HEXDUMP ) DUMP 



: LINE DUP DUP 8 + SWAP DO I CS 3 .R LOOP; 

: WERT DROP 20; 

: TI99/4A 

DUP 7D = IF WERT THEN DUP FD = IF WERT THEN 
DUP 1C = IF WERT THEN DUP 7E = IF WERT THEN 
DUP 1D = IF WERT THEN DUP 9C = IF WERT THEN 
DUP 1E = IF WERT THEN DUP FE = IF WERT THEN 
DUP 1F = IF WERT THEN DUP FF = IF WERT THEN 
DUP 90 = IF WERT THEN; 

: ASCII DUP DUP 8 + SWAP DO I C§ TI99/4A EMIT 
2 SPACES LOOP - 

: HDUMP CR DUP. SPACE LINE CR 8 SPACES ASCII 8 + 
: DUMP 0 DO HDUMP LOOP; 

Der Aufruf erfolgt mit Startadresse Endadresse DUMP. 

Das uns zur Verfügung stehende FORTH entspricht in allen Tei¬ 
len dem internationalen Standard fig-FORTH, Version 1.0. ab¬ 
geändert wurde lediglich der Standardbefehl KEY in ? KEY¬ 
BOARD, die Befehle VLIST oder CATALOG sind durch 
HELP ersetzt, INPUT-LINE, CURSOR-POS, COLUMN-SKIP 
sind spezifisch für das TI-FORTH, auch arbeitet die DO... + 
LOOP-Schleife etwas vom Standard abweichend. 

Alles in allem ist FORTH eine wesentliche Bereicherung für den 
TI99/4A, da es seine Möglichkeiten voll nutzt 

128k-RAM-Expansionskarte 

Nachdem der Nachschub von TI an Peripheriegeräten durch den 
Ausstieg aus der Produktion unterbunden wurde, ist es nahelie¬ 
gend, nach Ersatzgeräten für jene zu suchen, die zwar noch den 
„Schlußverkauf 1 nutzen konnten, jetzt aber auf der Suche nach 
Peripheriegeräten sind. 

C 



Schon seit einiger Zeit bietet eine amerikanische Firma RAM 
Expansionskarten an, wobei eine 128-K-Karte sicherlich die 
roßte Aufmerksamkeit verdient, da sie einerseits ungeahnte 
peichermöglichkeiten ergibt, andererseits preislich nur wenig 
über jenem Niveau liegt, aas hier bei uns die 32-K-Karte ohne¬ 
hin die längste Zeit hatte. 

Wie funktioniert nun dieser Traumspeicher, wo der direkte 
Adressierungsbereich des TMS9900 doch auf 64 K beschränkt 
ist? 

Diese Karte, geliefert in genau jenem stabilen Metallgehäuse, 
das Sie vielleicht von den anderen Einschüben schon kennen 
und deren Ausführung die Qualität vergleichbarer Produkte an¬ 
dere Homecomputer immer schon um Längen geschlagen hat, 
ist in vier Bänken zu je 32 K organisiert. Jedes dieser Banken 
belegt genau den gleichen Adressbereich, der schon bei der 
alten 32-K-Karte bekannt war — den unteren Bereich >2000 - 
>3FFF und einen oberen Bereich >A000 — >FFFF. Zwischen 
diesen Bänken kann mittels SBO- und SBZ-lnstruktionen um¬ 
geschaltet werden. 

Als Speicher selbst kommen 4164 dynamische RAMs zum Ein¬ 
satz. die von einem TMS 450 0 A DRAM-Controller verwaltet 
werden. 



Welche Möglichkeiten und Grenzen ergeben sich aus dem Ein¬ 
satz dieser Karte? 

Zunächst einmal ist für den Anwender sicherlich enttäuschend, 
auf den Befehl ,,SIZE“ hin die gewohnte Aussage von „11840 
BYTES OF STACK FREE, 24488 BYTES OF PROGRAM 
SPACE FREE“ zu erhalten. Dies ist aus dem „bank Switching“ 
aber unmittelbar abzuleiten. Somit steht der große Speicher 
auch nicht den Modulen Tl-Writer, Multiplan zur Verfügung. 

Die Stärke der 128-K-Karte liegt in der mitgelieferten Software, 
der DSR-Option. Sie enthält als sicherlich interessanteste Va¬ 
riante die Verwendung als RAM-Disk, die mittels „DSKX“ an¬ 
gesprochen, und mit OPEN, PRINT und INPUT als File ver¬ 
wendbar ist. Es ist damit auch möglich, mit nur einem Lauf¬ 
werk einfache Disketten zu kopieren, weil der Speicherbe¬ 
reich groß genug ist, einen kompletten Disketteninhalt aufzu¬ 
nehmen — dann erst die Disk zu wechseln — und auf eine neue 
Diskette zu übertragen. Jeder, der mit einem Laufwerk eine 
Diskette voller kurzer Programme oder Files kopiert hat, wird 
die Bedeutung dieser Routine voll zu würdigen wissen. 

Damit nicht genut> steht in Basic ein Datenspeicher ähnlich 
dem File „MINIMEM“, hier aber ganzen 96 K zur Verfügung, 
das mittels OPEN#l: “MEM96” zu öffnen ist. Dabei steht die¬ 
ses File bereits in normalem TI-Basic zur Verfügung! 

Als weitere Option steht unter XBasic die Möglichkeit offen, 
gleichzeitig mehrere Programme auf verschiedenen Banken 
geladen zu haben, die aus einem Programm mittels „RUN“ 
ein weiteres Programm, somit ein Superprogramm bis 128 K 
aufzubauen erlauben! 

Nun, einige der letztgenannten Optionen sind nur bei gleich¬ 
zeitigem Erwerb des von der gleichen Firma angebotenen Pro¬ 
gramms Dis-Emulator möglich, hingewiesen werden aber muß 
auch noch darauf, daß bei Einsatz des Minimems letztlich so¬ 


gar 132 K-RAM für Maschinenprogramme zur Verfügung 
stünden . . . 

Was nun aber wohl am meisten interessiert, dürfte der Preis 
sein - inklusive Fracht sind der Bestellung ein auf eine ame¬ 
rikanische Bank bezogener Scheck über 242.55 Dollar beizu¬ 
legen - die Lieferfirma hat folgende Anschrift: 

FOUNDATION 
74 Claire Way 
Tiburon, CA 94920 

Wahrscheinlich klar, aber vielleicht doch erwähnenswert für 
Ihre persönliche Kalkulation: Wenn Sie bereits eine herkömm¬ 
liche 32-K-Karte besitzen: da diese den gleichen Adressbereich 
belegt, kann sie nicht weiter verwendet werden. Sie werden 
sie daher verkaufen müssen, womit die Investition in die 
128-K-Karte sicherlich bereits wesentlich entschärft werden 
wird! 

Kassetten-Routine 

Sie haben auch nach dem Erscheinen der Kassettenanweisungen 
auf dem Bildschirm noch die Möglichkeit aus der Rekorder¬ 
routine auszusteigen: Drücken Sie einfach Taste E! Das ermög¬ 
licht Ihnen nach versehentlich eingegebenen OLD oder SAVE 
einen problemlosen Ausstieg. Erst wenn RECORD1NG bzw. 
READING erscheint, bleibt Ihnen nur mehr die Möglichkeit 
auf die Fehlermeldung zu warten. 

Versteckte Statements in Extended Basic 

Kürzlich wurde von amerikanischen Usern Interessantes bei der 
Benützung von Extended Basic entdeckt. 

Zum Beispiel tippen Sie 
10 FOR A=1 TO 100 
20 PRINT A 
30 N'EXT A 

Sie haben 39-Tasten gedrückt. Nun tippen Sie LIST. Sie erhal¬ 
ten die exakte Kopie des Programms, aas Sie soeben getippt 
haben. Nun versuchen wir etwas anderes. Tippen Sie folgendes: 
(Um Ihnen zu signalisieren, daß Sie die CTRL-Taste drücken 
müssen, verwenden wir folgendes Symbol: .. Das bedeutet, 
wenn Sie sehen, daß Sie die CTRL-Taste halten, während Sie 
das C drücken.) 

10 L (ENTER) 

20 : (ENTER) 

30 V (ENTER) 

Nun tippen Sie LIST. Ihr Bildschirm sollte so aussehen: 

10 fÖR 

20 PRINT 
30 NEXT 

Nun erweitern wir diese Zeilen. Dazu verwenden wir unseren 
REM-Charakter, das!, und tippen: 

(Vergessen Sie nicht bei die CTRL-Taste zu drücken.) 

10! LA=1 1200 (ENTER) 

20! -A (ENTER) 

30! VA (ENTER) 

Nun tippen Sie LIST. Wie Sie sehen, haben Sie das Original¬ 
programm am Bildschirm, jedoch mit ! , dem REM-State- 
ment, versehen. Nach dem Entfernen der ! (REM’s) entweder 
manuell oder durch Programm (nur mit Disklaufwerk) und Tip¬ 
pen von RUN wird das Programm genau wie das Originalpro¬ 
gramm ausgeführt. 

Um Sie über alle versteckten Statements zu informieren, finden 
Sie anschließend eine Liste der dem Statement zugehörigen 
Taste. 

Versuchen Sie selbst damit zu arbeiten. Wenn Sie andere 
Verwendungsmöglichkeiten entdecken, so lassen Sie sie uns 
wissen. 

Alle mit x bezeichneten Statements lassen sich auch ohne ! 
(REM) verwenden. 


1 (TO) 


2 (STEP) 

3 (.) 


4 (:) 

5 (:) 


6 0) 

7 (0 

X 

8 (OPTION) 

9 (OPEN) 


0 (THEN) 

= (CALL) 

X 

Q (UNTRACE) 

W(READ) 


E (GO) 

R (INPUT) 

X 

T (RESTORE) 

Y (DELETE) 

X 

U (RANDOMIZE) 

1 (DEF) 

X 

O IUNBREAK) 

P (TRACE) 


(AND) 

A (ELSE) 

X 

S (DATA) 

D (IF) 

X 

F (GOTO) 

x G (GOSUB) 

X 

H (RETURN) 

J (DIM) 

X 

K (END) 

L (FOR) 


: (PRINT) 

K (REM) 

X 

X (STOP) 

x C (!) 


V (NEXT) 

B (::) 

X 

N (BREAK) 

M(LET) 


: (ON) 
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SOFTWARE TESTS 


Datenverwaltungsmodul, 
AIDS 2 und AIDS 3 


Neben einer kontinuierlichen Vorstellung der Peripheriegeräte 
für den TI99, sowie einer Präsentation vieler Spielmodule, wol¬ 
len wir nun regelmäßig auch Erfahrungen mit Tl-Software, wie 
Sie in Disketten-, Modul- und Kassettenform angeboten wird, 
an unsere Leser weitergeben. Dabei legen wir vor allem auf Kri¬ 
terien der Gebrauchstauglichkeit, Klarheit in Aufbau und Hand¬ 
habung, Nützlichkeit und nicht zuletzt auf ein gutes Preis-/Lei- 
stungsverhältnis großen Wert. 

Diesmal haben wir aus der Fülle der im Handel erhältlichen 
Softwarepakete das Diskettenhilfsprogramm Programming 
Aids 111 und das Modul Datenverwaltung und Analyse heraus¬ 
gegriffen. Während ersteres ein Diskettensystem voraussetzt, 
ist das Datenmodul auch hervorragend mit einem Kassettenre¬ 
korder einsetzbar. 

Zuerst aber zur PHD 5012. den Programming Aids 111. Bei die¬ 
sem Paket, von dem es noch zwei andere Teile gibt, handelt es 
sich um eine Diskette mit vier Hilfsprogrammen und einer An¬ 
leitung, die leider nur in Englisch verfügbar ist. (Vielleicht 
kann dieser Artikel dennoch einige Leser begeistern, auch 


zu sehen ist, die Verarbeitung und Aufbereitung durch, sowie 
die Abspeicherung (wieder auf Diskette). 

Und CREFPR1NT schließlich druckt das ganze auf einem Druk- 
ker aus. Wer keinen Drucker hat. muß das Outputfile herauskür¬ 
zen und bei allen PRINT Statements das dazugehörige „#2“ 
wegstreichen, ln zweiterem Fall hat man eben die Analyse nur 
am Bildschirm und muß Pausen einbauen, um alles lesen zu 
können. 

Der zweite Teil der Diskette, der EDITOR, bietet drei Sonder¬ 
funktionen zur Manipulation bereits fertiger Programme. Man 
kann mit DELETE PROM-TO genau definierte Teile eines 
Programmes herauslöschen, mit RESEQUENCE FROM-TO 
Teile von Programmen mit neuen Zeilennummern versehen und 
in Kombination beider Befehle ganze Programmpassagen inner¬ 
halb des Programmes versetzen. Dazu hat man noch mit HELP 
jederzeit eine Befelilsübersichf am Bildschirm. Auch hier wird, 
bevor ein Programm verarbeitet wird, zuerst ein internes Daten¬ 
feld auf Diskette errichtet, das dann satzweise durchgegangen 
wird. 

Und damit sind wir nun beim dritten Vorteil, den diese Dis¬ 
kette bietet: Im Gegensatz zu Modulen, deren Inhalte nicht 
gelistet werden können, kann man aus den eigentlichen'Pro¬ 
grammen der Programming Aids, die man mit LIST transparent 
machen kann, sehr viel Nützliches lernen; vor allem in Bezug 
auf das Jonglieren mit Datenfeldern. Nicht zuletzt spricht auch 



wenn Sie der Sprache der Pferde nicht mächtig sind!) Abgese¬ 
hen von diesem lingualen Schönheitsfehler, der durcn formal 

f uten Aufbau praktisch völlig wettgemacht wird, ist über diese 
Togrammsammlung nur Erfreuliches zu berichten. Was aber 
kann man damit machen? Diese Frage muß in zwei Teilen be¬ 
antwortet werden. Erstens kann man von jedem BASIC oder 
XBASIC Programm eine Art Analyselisting verfassen, indem 
alle Variablen, Befehle, Sprungstellen und Unterprogramme 
in alphabetischer Reihenfolge, blockweise, mit der jeweiligen 
Programmzeile angeführt werden. So ein Analyse-Listing ist 
zusammen mit einem Programmlisting ein übersichtlicher 
Leitfaden bei der Weiterentwicklung eigener, und noch mehr 
beim Kennenlernen fremder Programme. Auf einen Blick 
(dies ist nicht ganz wörtlich zu nehmen, da solche Analyse- 
hstings sehr lange sind, was nicht heißt daß Sie unübersichtlich 
werden) sieht man alle verwendeten Funktionen, Files und 
Variablen, und gewinnt in Kombination mit dem Original- 
listing viel schneller den Überblick. Für diese Analyse benötigt 
man drei der vier Programme. LINPUT übersetzt aas zu analy¬ 
sierende Programm von der mit MERGE aufgezeichneten Ver¬ 
sion in Display Format in das wesentlich schneller zu bearbei¬ 
tende Internal Format. 

CREF führt in einem, bei langen Programmen bis zu 40 Minu¬ 
ten dauernden Vorgang, der als der eigentliche Analysevorgang 


der relativ niedrige Preis (im Vergleich zu Modulen) für diese 
Software auf Diskette. Schade ist, daß man nur mit einem Disk¬ 
system diese interessanten Programme nutzen kann. Falle es in 
Zukunft dann auch noch eine deutsche Anleitung gibt, kann 
man diese Diskette jedem ohne Einschränkungen empfehlen. 
Abschließend sei unter Hinweis auf die Bestimmungen des Copy¬ 
rights noch erwähnt, daß sich obengenannte Programme theo¬ 
retisch problemlos kopieren lassen, sodaß man sich dieses Paket, 
im privaten Kreis, aucn zu zweit oder zu dritt kaufen könnte. 
Jetzt aber zum angekündigten Modul, welches vorteilhafterweise 
auch mit einem Kassettenrekorder als Speichermedium einwand¬ 
frei arbeitet. Weiters bringt dieses Datenverwaltungsmodul ne¬ 
ben niedrigen Vorinvestitionen auch noch eine verblüffende An¬ 
wendungsvielfalt mit sich. Es ist nämlich sowohl mit anderen 
Modulen, als auch mit Diskettensoftware kombinierbar und 
kompatibel, und erschließt, mit Schwerpunkt auf private An¬ 
wender, ein geradezu riesiges Spektrum an Möglichkeiten. 

Zuerst aber einige Worte zum Modul an sich. Es handelt sich 
dabei im Prinzip um eine universell ersetzbare, computer¬ 
gelenkte Kartei, die beliebig erweitert, verändert, kopiert, 
ausgewertet und ausgedruckt werden kann. Es ist völlig sekun¬ 
där, ob der Benützer seine Markensammlung, die Telefonnum¬ 
mern seiner Freundinnen oder den Futterkonsum seines Rah 
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DAS SUPER-SONDER-ANGEBOT! 


PROGRAMM 

KASSETTEN 

KOSTENLOS! 


Das bietet Ihnen keine ander Zeitschrift! 

Jedes Listina kostenlos auf Programm-Kassette! 

Damit nicht genug. Unsere Kassetten werden 
digital aufgezeichnet: Garantie für einwandfreien 
Lauf ohne trror-Meidung oder Programmabsturz. 
Da lohnt sich kein Entippen mehr. 

Und: Selbstverständlich dürfen Sie kopieren - 
mit einer Bnschränkung: Ene Back up-Kopie zur 
eigenen Verwendung ist erlaubt, den Weiterver¬ 
kauf dieser Programme, deren Vermietung oder 
sonstige wirtschaftliche Verwertung jedoch 
müssen wir untersagen. Dafür bitten wir um 
Verständnis. 

Mit anhängendem Bestellschein - und nur mit 
dem! - bestellen Sie die von Ihnen gewünschte 
Kassette. Sie zahlen für das Programm: Nichts. 
Sie zahlen für den Warenwert der Kassette, Porto 
und Verpackung. (Das können wir Ihnen leider 
nicht schenken.) lediglich DM 5,- 

Wir garantieren: Einwandfreie Kassetten, in 
einem Profistudio vom Masterband digital gezo¬ 
gen. Kostenloser Umtausch binnen zwei Wochen, 
sollte die Mechanik einen Fehler haben oder das 
Programm nicht laufen Lieferzeit: ca. 14 Tage bis 
drei Wochen. 


COUPON 

Hiermit bestelle ich laut Ihrem Angebot folgende(s) Programm(e): 



zum Super-Sonderpreis von DM 5,- pro Kassette 

Den Betrag von DM() habe ich () in bar, () als Scheck () in Briefmarken beigelegt. 
Meine Anschrift: 

Name_ 

Vorname_ 

Straße_Nr._ 

PLZ/Ort_ 

Unterschrift_ 

Ausschneiden und im Brief senden an: 

AKTUELL 

KASSETTENSERVICE 
POSTFACH 1107 
8044 LOHHOF 




SOFTWARE TESTS 



Das neue 

Kommunikationssystem für jedermann - 
Aufbau, Funktionsweise, Bedienung, 
Anwendungsbeispiele 


Rauhaardackels evident halten möchte; alle Bereiche lassen sich 
rasch und einfach in das Schema des Moduls eingliedern. Ein¬ 
fach deshalb, weil selbst der blutigste Laie mit dem Dialogauf¬ 
bau des Programmes im Frage-Antwort-Stil, der übrigens in 
deutscher Sprache gehalten ist, zurechtkommen wird. Um das 
Modul sinnvoll einzusetzen benötigt man also nur die Konsole 
und einen Kassettenrekorder.(Empfehlenswert ist noch ein 
Drucker.) 

Man steckt das Modul in den Einschub, drückt auf der Haupt¬ 
waldliste „2“ für „Datenverw. u. -analyse“ und schon stellt 
der Computer seine Fragen bezüglich der jeweiligen Anwen¬ 
dungsrichtung. Es beginnt mit der Eingabe des Datums und 
der Frage ob ein Drucker vorhanden sei, eine neue Datei ange¬ 
legt oder eine bereits bestehende geladen werden soll. Als Bei¬ 
spiele für die Kriterien der Errichtung so einer Datei wollen wir 
die Adressdatei und eine Art Schallplattensammlung heranzie¬ 
hen. Als erster Schritt verlangt das Programm einen Namen für 
die Datei (z.B. „Adressen“, glatten“). Im nächsten Schritt 
geht es um die zu erfassenden Kriterien, deren Inhalt und Län¬ 
ge; Daten, die einmal definiert, nicht mehr veränderbar sind. 
Das Problem besteht in einer Optimierungsaufgabe, denn einer¬ 
seits soll die Datei vielseitig und präzis, andererseits aber mit 
dem zur Verfügung stehenden Speicherplatz sparsam umgehen. 
Der Computer beginnt mit Feldnr. 1 und wir geben diesem 
einen Namen: z.B. „NNAME“ für Nachname oder „INTER¬ 
PRET“ für den Sänger oder die Gruppe. Danach fragt der 
Computer nach dem Inhalt des Feldes. Grundsätzlich stehen 
vier Möglichkeiten offen: 

1) TEXT = alphanumerische Eingabe; nicht mathematisch 
nutzbar. 

2) GANZE ZAHL = Zahl ohne Komma; Null am Anfang 
verboten. 

3) DEZIMALZAHL = Eine oder mehr Kommastellen. 

4) EXPONENTIALFORM = Zahl, die das Maximum der 
anderen Zahlenfelder übersteigt. 

Beim Bedarf mathematischer Weiterverarbeitung dürfen nur 
2, 3 oder 4 Verwendung finden. 


Das letzte bildet dann die Feldlange, die am schwersten genau 
abzuschätzen ist. In unserem Beispiel würde ich in beiden Fällen 
vorsichtshalber die Maximallänge von 15 Zeichen wählen. Damit 
wäre die erste Feldnummer bestimmt. Wieviele solcher Felder 
man nun eröffnen will, hängt nun von subjektiven Bedürfnissen 
ab. Je mehr Kriterien man jedoch erfaßt, um so weniger Daten¬ 
sätze können eingegeben werden, da der Speicher ja immer der¬ 
selbe bleibt. Bei „Adressen“ ist sicher nocn Vorname, Straße, 
PLZ, Stadt und eine etwaige Ergänzung (z.B. Telefonnummer) 
angebracht, während ein Plattenkatalog Titel, Musikrichtung, 
Jahr und Nummer verlangt, um zufrieaenzustellen. 

Ist die Datei definiert, kann sofort mit dem Einsetzen der ei¬ 
gentlichen Daten begonnen werden. Solche Datensätze können 
dann auch noch verändert, gelöscht und neu hinzugefügt werden, 
wobei die Struktur der Datei aber unverändert bleiben muß. Hat 
man nun eine Reihe von Daten eingegeben (die maximale An¬ 
zahl wird vom Computer aufgrund der Struktur vorausberech¬ 
net), so stehen nun eine Reihe von Analysefunktionen zur Ver¬ 
fügung; z.B. Datensätze lesen, hinzufügen, verändern, auswerten, 
ausdrucken oder abspeichern. Bis auf die Auswertung laufen 
diese Vorgänge analog zu dem eben Beschriebenen ab. Für die 
Analyse stehen jedoch eine Reihe interessanter Möglichkeiten 
offen: 

Man kann eine Datei nach einem oder mehreren Feldern ord¬ 
nen (z.B. alphabetisch), ausdrucken oder separat abspeichern 
(z.B. alle Adressen aus Wien sollen mit aufsteigender Postleitzahl 
ausgedruckt werden oder alle LPs der Beatles ab 1968 sollen ge¬ 
listet werden). Die Datei wird also hierzu nach bestimmten Kri¬ 
terien sortiert, was besonders bei großen Datenmengen lange 
(bis zu 40 min.) dauern kann. Aus diesem Grund ist das Modul 
für professionelle Zwecke nur bedingt geeignet. 

Neben der Sortierung kann man auch mehrere Felder von Da¬ 
tensätzen auf einmal verändern = TRANSFORMATION. 

Doch damit nicht genug! Zu alledem stehen noch zwei mathe¬ 
matisch statistische Funktionen zur Verfügung. Man kann mit 
eingegebenen Daten Rechenoperationen durchführen oder all¬ 
gemein statistische Werte, wie Mittelwert, Max., Min., Standard¬ 
abweichung und lineare Anpassung berechnen. 

Darüber hinaus kann man mit diesem Modul erstellte Daten zu¬ 
sätzlich mit dem „Statistikmodul“ weiterverarbeiten. Dies vor 


allem in Hinblick auf Korrelation, lineare Regression, sowie be¬ 
urteilende Statistik. 

Der letzte Schritt ist dann das Abspeichern der Datei, das, wie 
erwähnt, entweder auf CS1, CS2 oder DSK1-3 erfolgen kann. 
Wer ein Diskettenlaufwerk benutzt kann zum Datenmodul 
noch verschiedene andere Programme (zur Kombination) auf 
Diskette erwerben, um auch Spezialgebiete abzudecken. Als 
Beispiel sei hier die Disksoftware RECHNUNGSSTELLUNG 
erwähnt, die aber genausogut mit dem Statistikmodul kombi¬ 
nierbar ist. Wie auch immer; diese Software läuft nur mit dem 
Diskettenlaufwerk. 

Die Kombination besteht darin, daß man die Möglichkeit hat 
bereits erstellte Adressdateien in Kundendateien umzuwandeln. 
Darüber hinaus erfüllt das BASIC Programm „Rechnungsstel¬ 
lung“, das nur fallweise auf das Datenmodul zugreift, alle 


Insgesamt ein gut gelungenes Werk, das dem breiten Nutzerkreis 
erste verständliche Informationen an die Hand gibt. 

Nur ein kleiner Wermutstropfen trübte die Freude beim Lesen. 
Wieso Geld ausgeben, wenn man weitestgehend die gleichen 
Informationen in den kostenlosen Broschüren der Deutschen 
Bundespost nachlesen kann? 


Buchtip 


Die BTX-Fibel 
Ciottlob, Strecker 


Das Buch befaßt sich in allgemein verständlichem Ton mit dem 
neuen Medium Bildschirmtext. Besonderer Wert wird auf grund¬ 
sätzliche Erläuterungen gelegt. 

Der Inhalt ist auch für einen technischen Laien klar und verständ¬ 
lich aufbereitet. Einem künftigen Nutzer wird dieses Buch, abge¬ 
sehen von der Liste der Kontaktadressen, jedoch nicht weiterhel¬ 
fen: dafür ist es zu allgemein gehalten. 


Com mtgr 




Erfordernisse dieses Aufgabenkreises, wie Artikel-, Kunden-, 
^Konditionendatei, Rechnungsstellung und -ausdruck. (Daher 
nur mit einem Drucker praktisch einsetzbar!) Die Anleitung ist 
in deutscher Sprache verfügbar und der Programmablauf im 
oben erwähnten Dialogstil gehalten. Dennoch ist die Anwen¬ 
dung in Verbindung mit dem Datenmodul nicht unkompliziert. 
Der Preis ist im Verhältnis zum Modul hoch, aber aufgrund 
überwiegender professioneller Anwendung kein Kaufhindernis. 
Gesamt betrachtet (aus der Sicht eines privaten Anwenders') 
ist das Datenverwaltungsmodul eine tolle Sache, die zeigt, daß 
man mit dem TI99 wirklich nicht nur spielen kann. 

Bevor wir uns nun die Programming Aids II ansehen, möchte 
ich noch eine Ergänzung anbringen, und zwar bezüglich des Pro¬ 
gramms „Editor" aus „Programming Aids III“. Dieses Programm 
nämlich weist einige Ungereimtheiten auf, die bei der Zeilen¬ 
nummernveränderung falsche Sprungstellen ergeben. Der Fehler 
liegt in Zeile 6220 des „Editors 1 ', die „6220 GOTO 6260“ 
anstatt „6220 GOTO 6250“ heißen muß!!! 

Nach diesem Hinweis für alle Programming Aids Ill-Besitzer, 
wollen wir nun die Programming Aids II näher betrachten. Sie 
beschäftigen sich ausführlich mit verschiedenen Operationen 
von Datenfeldern (Files) und beinhalten im besonderen 4 Pro¬ 
gramme: Disk Sort - Ram Sort - Merge - Dump. 

Die beiden ersteren ermöglichen das auf- oder absteigende 
Sortieren von Datenfeldern mit fixer Satzlänge nach einem Kri¬ 
terium (z.B.: Buchstabe). Beim Disk-Sort, das für längere Daten¬ 
felder geeigneter ist, kann man zwei Sortierarten wählen; den 
„Bubble-Sort“, bei dem das letzte Wort (im Datensatz) wie eine 
Luftblase im Wasser durch das ganze Feld an den richtigen Platz 
transferiert wird — eine Sortier-Art. die bei fast fertig sortierten 
Datenfeldern schneller ist — und den „Shell-Sort“, der die ganze 
Datei umsortiert. Die sortierte Datei wird beim Disk-Sort inner¬ 
halb der zu sortierenden Datei errichtet, während beim Ram- 
Sort ein Output-File spezifiziert werden muß. d.h. man muß 
darauf achten, daß auf der Diskette genügend Freiraum vorhan¬ 
den ist. Beide Programme laufen nach Eingabe der Satzanzahl, 
des Sortierkriteriums und des Datenfeldnamens, bzw. des Out- 

E ut-File-Namens beim Ram-Sort, und der Sortierart beim 
»isk-Sort in einem Vorgang ab. 

Mit dem Programm „Merge“ kann man nun zwei Datenfelder 
mit Datensätzen gleicher Länge miteinander verknüpfen. Die 
einzelnen Fües bleiben dabei erhalten, denn das Merge-File wird 
als eigenes File errichtet. Der begrenzende Faktor ist also nur 
die Speicherkapazität der Diskette. Praktisch muß beim Merge- 
Programm alles doppelt eingegeben werden, da ja zwei Daten¬ 
felder bearbeitet werden. Während des Programmablaufs gibt 
der TI99 nur Piepser von sich und schreibt am Ende die Nach¬ 
richt „* DONE Das vierte und zugleich vielseitigste Pro¬ 
gramm ist aber „Dump“. Es erlaubt aas Listen jedes beliebigen 
internal- oder displayformatigen Datenfeldes auf dem Bild¬ 
schirm oder DrucKer. Einzige Einschränkung ist eine maximale 
Satzlänge von 254. Ebenso können bei 8 Bytes langen Wörtern 
fehlerhafte Transformationen auftreten, da der TI99/4A solche 
Daten sowohl als gültigen String als auch als gültige Zahl werten 
kann. In so einem Fall werden beide Möglichkeiten aufgelistet. 
Zusätzlich zur ASCII-Ubertragung kann man auch noch den je¬ 
weiligen HEX-Code mit auflisten, was besonders bei Assembler¬ 
programmen vorteilhaft ist. Da man bei Disk-Sort, Ram-Sort, 
und Merge die Anzahl der Datensätze im spezifizierten Daten¬ 
feld wissen muß (Eingabegröße), findet sich im Anhang ein 
kleines Programm, mit dem man dies leicht für alle in Frage 
kommenden Datenfelderbestimmen kann: 

100 OPEN #1: “FILE-Device”, INPUT, SEQUENTIAL, 

FIXED (Laenge), (Internal oder Display) 

110 IFEOF(I)THEN 150 
120 INPUT #1: A$ 

130 C = C + 1 
140 GOTO 110 

150 PRINT „ES SIND“; C; „DATEN SAETZE“ 

Obwohl die Beschreibung leider nur in Englisch verfügbar ist, 
wird sicher jeder, der ein Diskettenlaufwerk besitzt, und die 
Vielseitigkeit von Datenfeldern bereits erschlossen hat, seine 
Freude mit dieser Software haben. Vor allem auch deshalb, weil 
er in die vier TI-Basic-Programme jederzeit Einsicht nehmen 
kann, um daraus zu lernen. Dadurch ist dieses Paket auch kopier¬ 
bar, wie alle Normal-Basic-Programme. 

Kommen wir aber jetzt zu den angesprochenen Unterprogram¬ 
men des Datenverwaltungsmoduis. Worum geht es eigentlich? 


Dieses Modul, das wesentlich billiger ist als ein Extendes Basic 
Modul, verfügt intern dennoch über einige Maschinenprogramme, 
die sonst nur beim Extended Basic vorhanden sind. Das Problem 
ist nur, daß man nirgends etwas über die dazugehörigen Aufruf¬ 
befehle erfährt. Fast nirgends! In einem Programm nämlich, daß 
zum Paket Rechnungsstelle gehört, findet man des öfteren basic- 
fremde Befehle, die den gleichen Zweck erfüllen wie „Display 
at“ und „Accept at“ im XB. Des Rätsels Lösung lautet Unter¬ 
programmaufruf! Wer also ein Date-nverwaltungsmodul besitzt, 
der verfügt von nun an im normalen TI-Basic über zwei neue 
Befehle: 

CALL D (Zeile, Spalte, Länge, “Text”) 

Dies ist praktisch eine Art PRINT-Befehl an beliebiger Stelle, 
ohne daß dadurch der Bildschirm gescrollt wird. Die Parameter 
können beliebig oft wiederholt werden. D.h. man kann mehrere 
Zeilen auf einmal beschreiben. Begrenzender Faktor ist lediglich 
die maximale Zeilenlänge im TI-Basic. 

CALL A (Zeile, Spalte, Länge, Status, $Eingabestring) 

Dieser Befehl entspricht einem INPUT-Befehl an beliebiger 
Stelle auf dem Bildschirm, mit definierbarer Maximallänge. Wer 
noch weitere Unterprogramme gefunden hat, der soll uns schrei¬ 
ben. Wir werden uns bemühen, noch mehrere Pseudo-Extended- 
Basic-Befehle herauszufinden, um sie euch mitzuteilen. Wer 
weiß? Vielleicht entpuppt sich das Datenverwaltungsmodul 
noch zum Mini-Extended-Basic-Modul. . . 

Als Abschluß nun noch ein paar Hinweise zum Softwarepaket 
Lagerhaltung. Diese Programmsammlung im TI-Basic benötigt 
wie das Paket Rechnungsstelle eine Diskettenstation und das 
Datenverw.-Modul. Vom Thema her sind diese Programme ja 
eher dem kommerziellen Anwender zugedacht, sie sind jedoch 
auch im privaten Bereich gut einsetzbar. Alle diese Programme 
sind zusätzlich natürlich mit Druckerroutinen versehen, die 
einem jede Funktion in Tabellenform ausdrucken. 

Das Paket ist in deutscher Sprache erhältlich und ausgezeichnet 
beschrieben. 

Der Nutzen des Programms besteht hauptsächlich darin, daß 
man angelegte Lagerdateien klar und vielseitig analysieren kann. 
So lassen sich Lagerbewegungen, Nachbestellungen, Artikel¬ 
listen oder Ladenhüter rasch ermitteln und ausdrucken, d.h. 
anschaulich darstellen. Sogar eine Inventur läßt sich durchführen, 
die benötigt aber bei langen Dateien bis zu einer Stunde. Natür¬ 
lich gibt es auch Editierfunktionen, wie Artikeländerungen und 
andere Korrekturen. Auf eine Diskette passen bis zu 900 Artikel 
in 20 verschiedenen Gruppen. Die einzelnen Programme laufen 
wie fast alle Tl-Software-Pakete in Menüform ab, und sind leicht 
handzuhaben. Schade ist nur, daß eben hohe Primärinvestitio¬ 
nen nötig sind. Wie die Programming Aids II ist auch diese Soft¬ 
ware theoretisch kopierbar. 

Im Vergleich zu anderen Firmen ist diese Software echt preis¬ 
wert! 


TI 99/4 A 

Wir können wieder liefern! 
Extended Basic 
Diskettenlaufwerke 
(auch doppelseitig!) 
USA-Peripherie zu 
Superpreisen! 

Bitte rufen Sie uns an, 
oder schreiben Sie uns — 
aber schnell — solange 
es noch was zum Holen 
gibt! 


TI 99/4 A 
DAMAST 


Datenmanagement- 
System für den 
Home-Computer 
TI 99/4A 

Die professionelle 
Datenbank für Ihren 
TI 99/4A 

Münchner Str 48/11 



8025 Unterhaching 
Telefon 0 (089) 61 90 48 
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TIPS & TRICKS 


TI UND IBM: 
KEIN 

PROBLEM! 

IBM, TI 

Wie verbinde ich die zwei? 

Der Autor hat am Arbeitsplatz einen IBM PC und einen Texas 
Instruments 99/4 A daheim. Natürlich war es naheliegend zu ver¬ 
suchen, Dateien vom kleineren 99/4A auf dem schnelleren PC 
zu verarbeiten. Dieser Artikel beschreibt die notwendigen Gerä¬ 
teerweiterungen sowie Programme, die benötigt werden um 
diese Verbindung herzustellen. 

Beim heutigen, schnellebigen Computermarkt, ist es nicht unge¬ 
wöhnlich einen Computertyp daheim'und einen anderen am 
Arbeitsplatz zu benutzen. Ein eigener TI 99/4A und ein IBM PC 
am Arbeitsplatz ließen bald den Wunsch aufkommen, Program¬ 
me von der kleineren Maschine auf die schnellere zu übertragen. 
Die Ankündigung von Texas Instruments, die Produktion des 
99/4A einzustellen sowie die Markteinführung des PGjr bestärk¬ 
ten mich in meinen Bemühungen, einen einfachen Wej> für eine 
Datenübertragung zwischen diesen beiden beliebten Geräten zu 
suchen. 

Stellen wir also die Verbindung her! 

Zuerst müssen wir den asynchronen Ausgang des IBM PC mit der 
RS-232-Karte des TI 99/4A verbinden. Dies können wir mit 
einer direkten Kabelverbindung oder über einen Akustikkoppler 
(Modem) erledigen. Wir können ein käufliches RS-232-KabeI be¬ 
nutzen oder uns eines selbst bauen. Hierzu benötigen wir ledig¬ 
lich ein dreiadriges Kabel sowie ein 25poliges RS-232-Stecker- 
päärchen. 


Die notwendigen Verbindungen habe ich im Bild 1 dargestellt. 
Wichtig ist, am IBM-Stecker die Pins’s 4 und 5 zu verbinden um 
die „Clear to send Input line“ automatisch einzuschalten. Mit 
dieser Kabelverbindung können wir erfolgreich Dateien von der 
TI 99/4A-Kassette oder -Diskette auf IBM-Disketten über¬ 
tragen. 

Die Datenübertragung ist einfacher, wenn wir unserem IBM das 
Programm aus Listing 1 eingeben. Bereiten Sie eine Diskette 
mit: —IX)S 
—BasicA 

-PCTICOM sowie der 
-AUTOEXEC.BAT Datei 

vor. 


AUTOEXEC.BAT: 

BasicA PCTICOM.BAS/C: 16000 

Mit einem bereitgestellten 16 K Empfangsspeicher wird die 
Gefahr eines Datenverlustes durch Bufferüberlauf beseitigt. Der 
reservierte Speicherbereich kann mit Ihrem System variieren; 
braucht jedoch nie größer zu sein, als der mit diesem Programm 
belegte Speicherbereich des TI 99/4A. Das Maximum sind 
32767 Bytes. 

Noch eine Schlußbemerkung: 

Es kann Vorkommen, daß einige Basic-Programmzeilen bei der 
Übertragung und Übersetzung getrennt werden, so daß sie dem 
Computer beim Programmablauf wie „Direkteingaben“ Vor¬ 
kommen, was natürlich eine Fehlermeldung nach sich zieht. 
Deshalb ist es nützlich, eine Kopie des EDLIN editors, der mit 
MS DOS mitgeliefert wird, einzufügen. Erfahrungsgemäß kön¬ 
nen auf dem TI 99/4 A geschriebene Programme mit meist nur 
geringen Änderungen so umgesetzt werden, daß sie auf dem 
IBM PC laufen. TTspezifische CALL-Befehle müssen natürlich 
in die entsprechenden Micro-Soft-Befehle geändert werden. 
Dateien müssen im ASCII-Code gespeichert sein; dies entspricht 
beim TI dem DISPLAY-Format. 

Das PCTICOM-Programm benutzt alle notwendigen Möglichkei¬ 
ten der asynchronen IBM-Schnittstelle (ACSP) um die Daten¬ 
übertragung zu kontrollieren. Wenn der IBM PC an die Stan¬ 
dard-Werte der TI RS-232-Schnittstelle angepaßt ist, genügt 
beim TI der einfache Befehl 

LIST “RS232” 

um mit der Datenübertragung zu beginnen 


Bild zum Aufbau des Verbindungskabe1s IBM/PC 


<--> TI 99/4A 


PIN # 


PIN # 


Anschluß 

an 

TI 99/4A 



I I 
I 2 I 
I I 
I 3 I 
I I 
I I 
I I 
I I 
I I 
I 7 I 
I_I 


I I 

-1 2 I 

I I 

-1 3 I 

I I 

-1 4 I 

I I I 

-1 5 I 

I I 

-I 7 i 

I_I 


(Männlein und YVeiblein) 


Anschiuß 
an 

IBM PC 



io 









==PCTICOM== 


100 CLS:LOCATE 4,12 
120 LOCATE 5,12:L=1 

130 PRINT "Programm zum Uebertragen von Textdateien vom TI99/4A AUF IBM-PC" 
140 PRINT TAB(12) "DIE DATEI MUSS IM SPEICHER DES TI 99/4A GELADEN SEIN" 

150 LOCATE 7,12 

160 PRINT "CTRL BREAK = UNTERBRECHEN; CONT = WEITER" 

170 PRINT TAB(12) "NEUSTART MIT GOTO 100 NACH CTRL BRAEK" 

180 ’BV K.BURCHETT, JANUAR 1983. REF: J.G. SCHMIDT, MICROCOMPUTING, 

190 7 NOVEMBER 1983; IBM BASIC MANUAL, 1982? TI RS232 REFERENCE, 1982 
200 KEY OFF:CLOSE:LOCATE 9,12:0N ERROR GOTO 500 

220 LOCATE 12,28:PRINT " 1. TRANSFER FILE" 

230 LOCATE 14,28:PRINT " 2. ZURUECK ZUM BASIC(A)" 

240 LOCATE 16,28:PRINT " 3. ZURUECK ZUM DOS" 

250 LOCATE 19,14:INPUT " IHRE WAHL: ";C 

260 LOCATE 20,1.*CLS:0N C GOTO 280,540,560: GOTO lOO 

27C ’ 

280 7 =================DATENUEBERTRAGUNG========================= 

290 INPUT "DATENSATZ AUF BILSCHIRM AUSGEBEN (J ODER N)";PS;PRINT 
300 INPUT "DATENSATZ AUF DRUCKER AUSGEBEN (J ODER N)";HS:PRINT 
310 IF HS< > "j" AND HSO-J" THEN 340 

320 INPUT "ZEILENZAHL PRO SEITE (ENDLOS = O);L:P=1:PRINT 
330 INPUT "ZEICHEN PRO ZEILE (MAX.=255, TI=28) " ;WI:PRINT 
340 INPUT "UEBERTRAGENE DATEI AUF DISK SICHERN (J ODER N);SS:PRINT 
350 IF SS<>"j" AND SS<>"J" THEN 380 

360 PRINT "NAME FUER EMPFANGENE DATEI. 7 BAS’ ANFUEGEN, FALLS" 

370 INPUT "DATEI EIN BASIC PROGRAMM IST: ";FILES:OPEN FILES FOR OUTPUT AS #2 
330 WIDTH "lpt1: ",WI: OPEN "COM1:300,O,7, ,CS,DS,RS" AS #i:CLS 
390 IF P=1 THEN PRINT "DRUCKER BEREIT" 

400 PRINT "GEBEN SIE AM TI 99/4A EIN --> LIST RS232 ":PRINT 

410 LINE INPUT #1,AS: IF LEFTS(AS,1)=CHRS(1O) THEN AS=MIDS(AS,2) 

420 IF PS="j" OR PS="J" THEN PRINT AS 
440 IF P=1 THEN 440 ELSE 460 

450 LPRINT AS:CTRH=CTRH+INT((LEN(AS)/WI))+1:IF CTRH <L OR L=0 THEN 460 
450 PRINT:INPUT "SEITENWECHSEL. WEITER MIT ENTERKS:CTRH=0 
460 IF SS="j" OR SS="J" THEN PRINT #2, AS 
470 FOR T=1 TO 3000:IF L0C(1)>1 THEN 410 

480 NEXT T:PRINT:PRINT:PRINT"*****UEBERTRAGUNG BEENDED*****" 

490 CLOSE:FOR 1=1 TO 5000: NEXT I:ctrh=o:CLS:GOTO 100 
500 IF ERR=69 THEN PRINT "**SPEICHERUEBERLAUF**":RESUME 
510 IF ERR=25'OR ERR=27 THEN 520 ELSE 530 

520 INPUT "GERAETEFEHLER AM DRUCKER; WEITER MIT ENTER.";KS:RESUME 
530 ON ERROR GOTO 0 

540 CLS:PRINT "ARBEIT BEENDET; BASIC(A) BEREIT":WIDTH "ipt:",255 
560 SYSTEM 

LISTING : Für IBM PC zum Datentr ans-f erpr ogramm 
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TESTS 


PRIMUS INTER PARES 


NORMALSCHRIFT: 

< '*.#$%&:’ < )*+, /0123456789: ; < = > ?®ABC DEFGHI J KLMNOPQRSTUVWX YZ 

HQRMLSCHRIFT IN 16,5 CP! 

UH,-, /ö 125456789:5< = >?fASCDEFGHMJ!LNNDf > 8RSlUVUXf2 

NORMALSCHRIFT EMPHASED: 

! ( >*+, /Ol23456789*. ? < = >' , @AFCTF FOHI JKLMNO^QRSTUVV.'X f . 

Normalschrift oouble-strike: 

! " W©%& * <>*♦,-. / Ol 23456789: i <»>?«ABC .. Oh I JKLMNOF LRS T Uv /./•V 

NORMALSCHR X F 7 T £r i <"» f - ‘ i «£> 1 Er. XJ 1 

NORMALSCHR IFT El-.C/ü ?C A ?* Er .O Cr i n tr> 5 4 r~> 

NORM AI_SC SH F? X f~ T L O ; ^ 3 - % . LI O O C> ... Lr 3 • 


NORMALSCHRIF T COMPRE! 



Es gibt Drucker und Drucker. Preiswerte und teure, mit 
Typenrad oder Matrix, Thermo- und Tintenstrahl-Modelle, 
kurz, die Auswahl ist riesig. Um Ihnen eine Entscheidung zu 
erleichtern, wird TI REVUE gerade dem Text von Peripherie- 


Geräten in Zukunft verstärkt 
seine Aufmerksamkeit 

widmen. Hier stellen wir 
Ihnen einen Matrixdrucker 
vor, der nach unseren 
Erkenntnissen zum Preis von 
rund 900 Mark ein besonders 
attraktives Preis/Lei¬ 

stungsverhältnis aufweist. 
Unsere Testcrew nannte ihn 
„Primus inter Pares“. So 
überzeugte er sie. 


D er MT 80 ist der billigste Druk- 
ker der Firma Mannesmann 
Tally. Er ist als Einsteigermo¬ 
dell gedacht, bietet aber für seine 
Preisklasse doch schon einiges. Für 
den technisch interessierten stehen 
die technischen Daten in gewohnter 
Weise im Kasten. Der MT 80 kann 
nicht nur Endlospapier im DIN A 4 
Format verarbeiten, sondern er läßt 
sich auch mit einzelnen Blättern füt¬ 
tern. Anfallende Daten druckt er mit 
einer Geschwindigkeit von 80 Zeichen 
pro Sekunde. Dies ist für seine Preis¬ 
klasse die Norm. Langsamer sollte ein 
Matrixdrucker nicht sein. Ein Matrix¬ 
drucker setzt einen Buchstaben ja aus 


mehreren Einzelpunkten zusammen. 
Je größer also die Matrix ist und je 
dichter die einzelnen Punkte zueinan¬ 
der stehen, desto besser wird das 
Schriftbild. Einen Auszug sehen sie 
im Bild. Natürlich beherrscht der MT 
80 auch Fett- und Kleindruck. Dar¬ 
über hinaus ist er voll grafikfähig. Fer¬ 
ner kennt er 96 Standardzeichen, 7 na¬ 
tionale Zeichensätze wie englisch, 
deutsch, französisch, italienisch, spa¬ 
nisch, schwedisch und finnisch, 32 Li¬ 
nien- und Blockgrafikzeichen, sowie 
Sub- und Superskript. Zudem ist jede 
einzelne Nadel der Matrix adressier¬ 
bar. 

Der MT 80 besitzt in seiner Grund¬ 
version eine parallele Schnittstelle. Sie 
überträgt gleichzeitig, also parallel, 8 
bits vom Computer zum Drucker, 
vorausgesetzt, Ihr Computer verfügt 
ebenfalls über eine parallele Schnitt¬ 
stelle. Falls dies nicht zutrifft, läuft 
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Matrixdrucker MT 80 


Druckprinzip___ 

Zeichenmatrix (H x B) 

Matrixgröße (H x B)_ 

Druckgeschwindigkeit 
Graphikmode_ 


Zeichenvorrat 


Zeichenteilung 
Zeilenteilung _ 


Zeichen pro Zeile 
Zeilenpuffer_ 


Druckrichtung_ 

Zeichenhervorhebung 


Über Schnittstelle 
programmierbare Funktionen 


Papiertransport 


Papierbreite 
Kopienzahl _ 


Papierendemelder 
Farbband_ 


Testeinrichtung 

Schnittstelle_ 

Netzanschluß _ 


Leistungsaufnahme 
Temparaturbereich _ 


Luftfeuchtigkeit. 
Geräuschpegel _ 


Sicherheitsvorschriften 


Abmessungen 
Gewicht_ 


Lebensdauer Druckkopf 
MTBF_ 


ZUSATZEINRICHTUNG 
Schnittstelle__ 


Gehäuseoberteil 
in Geräuschdämmversion, 
Hersteller/Vertrieb_ 


. Serial-Matrixdruck (Impact) 

8x7 

. 3,1 x 2,1 mm 

80 cps bei 10 Zeichen pro Zoll Schnelldruck 
direkte Nadeladressierung (DNA) 

640 dots / 8" Zeile 
1280dots/8"Zeile 

96 ASCII und 7 nationale Zeichensätze: 
englisch, deutsch, französisch, italienisch, 
spanisch, schwedisch/finnisch, 32 Linien- 
und Blockgraphikzeichen, Sub- und Super¬ 
script 

5/8,25/10/16,5 cpi 

6 / 8 Ipi und prgrammierbar in Mikroschritten: 
n/72" bei n = 1 bis 85 
n/216" bei n = 1 bis 255 
80 cpl bei 10 cpi, 132 cpl bei 16,5 cpi 
40 cpl bei 5 cpi, 66 cpl bei 8,25 cpi 
eine volle Zeile kann gespeichert werden 
vorwärts und rückwärts, durckwegoptimiert 
alle Zeichen indoppelter Breite, automa¬ 
tische Unterstrichen oder verstärkt 

Zeichenvorhebung, Zeichenteilung, Zeilen¬ 
teilung, Schriftbild, Formularsteuerung, 
rechte Randbegrenzung (Epson-kompatible 
Codes) 

kombiniertesTraktoren- und Friktionswalzen- 

System mit Abreißkante 

min. 4Zoll bis max. lOZoll (102 mm -254 mm) 

1 Original und 3 Kopien, abhängig vom 

Papiergewicht 

für Papierführung von hinten 

Farbbandkassette, Mylar, Film, Lebensdauer 

ca. 600.000 Zeichen 

Selbsttest 

8 bit parallel (Standard) 

120/220/240 V, 50/60 Hz 
ca. 100 W 

Betrieb: + 5° C bis + 40° C 
Lagerung: - 30° C bis + 70° C 
Betrieb: 5 -95% ohne Kondensation 
Lagerung: 0 -95% ohne Kondensation 
< 60 dB (A) 

entsprechend den Bestimmungen von UL, 
CSA, FCC und VDE für Büromaschin.en 
377 x 125 x 295 mm (B x H x T) 

5,3 kg 

30 Mio. Zeichen 

5 Mio. Zeichen (außer Druckkopf) 


serielle Schnittstelle RS232 mit 2 KB Speicher 

< 55 dB (A), ohne Abreißkante 
Mannesmann Tally GmbH, Postfach 2969, 
D-7900 Ulm, Germany, Tel. (07308) 80-1, 
Telex: 712 595 mted , Tel efax: (07308) 80344 


nämlich gar nichts mehr. Als „Option“ 
gibt es eine serielle Schnittstelle zu 
einem Aufpreis von DM 225,—. Als 
Besonderheit weist diese Schnittstelle 
einen 2 KByte Druckpuffer auf. Der 
Computer kann damit eine DIN A 4 
Seite Daten an den Drucker überge¬ 
ben, und während dieser arbeitet, 
kann man den Computer schon wie¬ 
der benutzen. 

Öffnet man den MT 80 (dies muß 
man auf jeden Fall einmal tun), so 
erkennt man eine solide Feinmecha¬ 
nik. Der Drucker ist sehr gut verarbei¬ 
tet und hat bis jetzt noch nie Anlaß zur 
Klage gegeben. 

Das Wichtigste ist aber, wie man 
einen Drucker bedient. Nicht jeder 
Drucker paßt auf Anhieb zu jedem 
Computer. Die meisten Drucker ha¬ 
ben aber Mikroschalter, mit denen 
man sie auf einen bestimmten Com¬ 
puter einstellen kann, so auch der MT 
80. Bei ihm befinden sich diese Schal¬ 
ter im Innern. Der Drucker muß also 
geöffnet werden, falls er nicht mit der 
Grundeinstellung läuft. Diverse 
Schriftbilder werden ebenfalls über 
die Mikroschalter eingestellt, um dies 
alles ausführen zu können, benötigt 
man natürlich eine Bedienungsanlei¬ 
tung. Die Anleitung für den MT 80 ist 
hervorragend, aber nur für jemanden, 
der sehr gut englisch kann und auch 
technisches Englisch versteht. Dieses 
Manko ist dem MT 80 aber nicht allein 
anzulasten. Andere Hersteller, auch 
in höheren Preisklassen, haben es 
noch genauso nicht gelernt, ihre Pro¬ 
dukte auf dem deutschen Markt auch 
marktgerecht anzubieten. Einen 
Trost bietet die Bedienungsanleitung 
aber doch noch; Anschluß des Druk- 
kers und das Öffnen sind in anschauli¬ 
chen Zeichnungen dargestellt. Eben¬ 
falls sind für die programmgesteuer¬ 
ten Druckerfunktionen einfache Pro¬ 
gramme in BASIC vorhanden, so daß 
es auch für den nicht in englisch ver¬ 
sierten Benutzer möglich wird, sich 
alle wichtigen Begriffe anzueignen. 


FAZIT 


Als Schlußpunkt läßt sich sagen, 
daß der MT 80 für knappe 900-DM 
ein durchaus alternativer Drucker zu 
anderen Geräten ist. Sein etwas höhe¬ 
rer Preis wird durch seine Leistungs¬ 
fähigkeit vollkommen wettgemacht. 
Für den anspruchsvollen Einsteiger 
bietet er eigentlich alles zu einem ver¬ 
nünftigen Preis/Leistungsverhältnis. 
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Bei diesem Programm handelt es sich um eine kurze Routine, 
mit deren Hilfe automatisch sämtliche Bemerkungen (REM’S) 
in einem Programm entfernt werden können. Das Programm 
erkennt beide TI-Kürzel ,REM' als auch ,!'. 

Nachdem bekanntermaßen auch REM-Zeilen bei der Programm¬ 
ausführung gelesen werden und somit Zeit beanspruchen, liegt 
der Vorteil eines solchen Entfemers bei umfangreichen Pro¬ 
grammen auf der Hand. 

Zur Bedienung: 

Das Originalprogramm muß zuerst unter SAVE DSK1. 

.. MERGE abgespeichert werden. Anschließend 

wird unser Hilfsprogramm geladen. Es liest unser Merge-Pro- 
gramm und schreibt es „gereinigt“ unter dem Namen CLEAN 
wieder auf die Diskette zurück. 

Nach Abschluß des Programmlaufens löschen Sie den Speicher 
mit NEW, laden das veränderte Programm mit MERGE DSK1. 
CLEAN; nunmehr können Sie Ihr Programm unter einem 
neuen Programmnamen wieder wie gewohnt abspeichern. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
2 10 
220 
230 
240 
250 


*********************** 


! * THE REMOVER * 
!* BY GARRETT MINEO * 
! * * 

! * BEARBEITET VON TEAM * 
! * DES AKTUELL VERLAGS * 
! * MUENCHEN * 
! * * 
!* BENOETIGTE GERAETE: * 
!* TI 99/4A KONSOLE * 
! * DISKETTENLAUFWERK * 
! * EXTENDED BASIC * 
! * * 
! * SPEICHERBELEGUNG * 
! * 2197 BYTES * 


************************ 


260 DISPLAY AT(1,1O)ERASE AL 

l:"der rem entferner" 

270 DISPLAY AT<7 , 1) : "DER REM 
-ENTFERNER BESEITIGT ALLE AR 
TEN VON REM’S AUS IHREM P 
ROGRAMM, EINSCHLIESS-LICH DE 
RJENIGEN MIT (!)." 

280 DISPLAY AT(12,1):"DER RE 
MOVER ARBEITET NUR MITPROGRA 
MMEN, DIE VORHER UNTER’MERGE 
’ GESPEICHERT WURDEN." 

290 DISPLAY AT(18,1):"FILENA 
ME > " 

300 ACCEPT AT(18, 11 )SIZE(10) 

beep:X* 

310 DISPLAY AT (22, 1 ) .* "BEARBE 
ITETE ZEILE >" 

320 X*= M DSK1."kX* 

330' OPEN #1IX*,DISPLAY ,INPU 
T »VARIABLE 163 

340 OPEN *42: "DSK1 . CLEAN" , DIS 
PLAY ,OUTPUT,VARIABLE 163 
350 Ztt=CHR* (255) &CHRS (255) 
360 LINPUT #l:X* 

370 C = C + 1 :: DISPLAY AT(22, 1 

9) : C 

380 IF SEG*(X*,1,2)=Z* THEN 
460 

390 IF SEG*(X«,3,1)=CHR«(154 
)THEN 450 

400 IF SEG*(X«,3,1)=CHR*(131 
)THEN 450 

410 FOR A=4 TO LEN(X*) 

420 IF SEG*(X*,A,1)=CHR*(131 

) THEN X*=SEG9i (XS, 1 , A-l ) kCHRS 

(O):: GOTO 440 

430 NEXT A 

440 PRINT #2*.X* 

450 GOTO 360 
460 PRINT #2:Z* 

470 CLOSE «1 :: CLOSE #2 

480 DISPLAY AT(5,1)BEEP ERAS 
E ALL:"FERTIG; GEBEN SIE NUN 
’NEW’ EIN. LADEN SIE NUN DA 
S BE- ARBEITETE PROGRAMM MI 
T: MERGE DSK1.CLEAN" 

490 DISPLAY AT(16, 1) : "SPEICH 
ERN SIE ES NUN UNTER EINEM 
NEUEN (!!!) NAMEN AB, DAMIT 
IHRE DOKUMENTIERTE VERSIO 

N NICHT VERLOREN GEHT." 

500 END 
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Goldrausch 

von Pieter Coates 

Ein Spiel in Extended Basic. 

Sie als Spieler haben die Aufgabe, sich als Goldgräber zu betäti¬ 
gen. Je mehr Gold Sie schürfen, desto mehr Punkte erzielen Sie. 
Es gilt jedoch mehrere Schwierigkeiten zu meistern. Nicht alle 
Schürfstellen fuhren noch Gold. An manchen befindet sich ein 
altes Indianergrab, welches nur ein einziges Mal betreten wer¬ 
den darf. An anderen stoßen Sie an eine feste Wand, die Sie 
entweder umgehen oder durchbbhren (Punktabzug) müssen. 
Das gefährlichste sind jedoch die unvermuteten Wasserein- 
brücne. 

Insgesamt ein Spiel, das die Ton- und Grafikmöglichkeiten des 
Extended Basic gut nutzt und auch nicht allzuschnell lang¬ 
weilig zu werden droht. 


HINWEIS BEIM EINTIPPEN UNSERER 
PROGRAMMLISTINGS: 

Grundsätzlich müssen Sie unsere 
Programme genau so eintippen, wie 
sie abgedruckt sind. Wir haben zu 
diesem Zweck den Ausdruck auf 28 
Zeichen/Zeile = Bildschirmformat 
beschränkt, obwohl auch wir mit 
einem 80-Zeichen-Drucker klotzen 
könnten. Nur, ist es nicht besser, 
wenn unser Listing exakt Ihrem Bild¬ 
schirm entspricht? 

Der besseren Lesbarkeit halber sind 
die Listings 1 1/2-zeilig gedruckt, 
wobei die Zeilennummer jeweils her¬ 
vorgehoben ist. 

Die einzige wirkliche Besonderheit 
liegt in PRINT und DISPLAY Anwei¬ 
sungen. Hier haben wir, falls es zum 
Bildschirmaufbau notwendig ist, Leer¬ 
zeichen durch Punkte ersetzt, um 
Ihnen das Abtippen zu erleichtern. 
Hier gilt also: Überall dort, wo meh¬ 
rere Punkte stehen, die gleiche An¬ 
zahl Leerzeichen tippen. 

Das ist der ganze Zauber... 

Übrigens, wenn Ihnen das Tippen zu 
lästig ist, schauen Sie doch mal auf 
der Seite mit unserem Kassetten¬ 
service nach. Dort finden Sie ein 
tolles Supersoftware-Sonderangebot. 


lOO 

********************** 

HO 

* 


* 

1 20 

* 

- GOLDRAUSCH - 

* 

130' 

* 

COPYRIGHT 1984 BY 

* 

140 

* 

PIETER COATES 

* 

150 

* 


* 

160 

* 

BEARBEITET VOM 

* 

170 

* 

TEAM DES 

* 

180 

* 

AKTUELL VERLAGES 

* 

190 

* 

MUENCHEN 

* 

200 

* 

BENOETIGTE GERAETE 

* 

2 10 

* 

TI 99/4 A KONSOLE 

* 

220 

* 

TI EXTENDED BASIC 

* 

230 

* 

EMPF. JOYSTICKS 

* 

240 

* 

DISK ODER CASSETTE 

* 

250 

* 


* 

260 

* 

SPEICHERBELEGUNG 

* 

270 

* 

10424 BYTES 

* 

280 

* 


* 

290 

* 

VERSION II/A 

* 

300 

********************** 

310 CALL 

CHAR(96,"007CB2B83C 


3E77737172303030B4B478003E4D 
1D3C7CEECE3E4E0C0C0C2D2D1E") 
320 CALL CHAR<100,"000709090 
1010303030303010109090700E09 
090S080C0C0C0C0C080309090E0" 

) 

330 CALL CHAR(104,"0078B4B03 

83C7E7F7B799A3030B0B478001E2 

D0D0C0C5E9EDEFE7E3C1C0D2D1E" 

) 

340 CALL CHAR(108,"7FBCB0303 
G74737F 7F73743030B0BC7FFE3C0 
2C20G20C2FCFCC2200002023CFE" 

> 

350 CALL CHAR(112,"7F9C981C1 
C3C333C3F3F3B1918989A7CF03C0 
E0303030E3CF03080C0E0723A7C" 

) 

360 CALL CHAR(130,"FFFFFFFFF 
FFFFFFF") 

370 N=i5 :: T =220 :: call ch 
ARSET 

380 CALL CLEAR :: CALL SCREE 

N (11) : : wi h=o :: gf=o 

390 FOR B=1 TO 8 :: CALL COL 

OP(B,2,11):: NEXT B 

400 A*=" 1C221C3E5D1C2263" :: 

B*=' ! FFFFFFE7E7FFFFFF" 

410 CS="3C423C423C423C42" :: 

DS;= " 1 818181818181818“ 

420 ”003C4242FF" :: F$="A 

AAAAAAAAAAAAAAA" 


» 
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430 CALL CHAR(131,C$,88,E$): 

: GOSUB 2610 
440 GOSUB 2720 

450 DISPLAY AT(1,20)SIZE(4) : 
GF :: DISPLAY AT(2,1)SIZE(4) 

:"BANK" 

460 DISPLAY AT(1,12)SIZE(6): 
"DOLLAR" 

470 FOR N=1 TO 14 :: CALL CO 
L.OR (N, 2,2) : : NEXT N 
480 CALL CHAR(127,ES):: CALL 
CHAR ( 1 13, DS) : I CALL CHAR(12 
9, FS) 

490 CALL HCHAR(4,1,130,672): 

: CALL VCHAR(3,31,131,21) 

500 CALL VCHAR<1,9,113,3)!: 

CALL HCHAR(3,7,127) 

510 CALL HCHAR(1,30,129,3) 
520 CALL CHAR(60,AS):I CALL 
VCHAR(1,1,131,3) 

530 X=19 :: Y=3 

540 CALL HCHAR(1,1,129,9) 

550 FOR B=1 TO 14 :: CALL CO 

LOR(B,2,11):: NEXT B 
560 CALL CHAR(33,"FFFFAA55AA 
55AAFF") 

570 CALL HCHAR(4,1,33,30) 

580 MS="** BITTE WARTEN **" 
590 GOSUB 3200 

600 ! SORTIEREN 

610 GOSUB 1440 

620 GOSUB 1370 

630 GOSUB 1600 

640 GOSUB 1510 

650 CALL HCHAR(Y,X,60) 

660 MS="ES KANN LOSGEHEN,OIE 
L GLUECK" 

670 GOSUB 3200 


680 

FOR B=0 

TO 30 

690 

CALL SOUND(-100,523,B,65 

9, B, 

783,B) 


700 

NEXT B 


710 

CALL HCHAR(24,1,130,30) 

720 

CALL COLOR(13,2,7) 

730 

CALL KEY(1,K,S) 

740 

IF Y = 3 

AND X< =30 THEN 77 

0 



750 

IF K = 0 

THEN 1160 

760 

IF K = 5 

THEN 1170 

770 

IF K = 3 

THEN 1140 

780 

IF K = 2 

THEN 1150 

790 

CALL JOYST(1,Z,B) 

800 

IF Y = 3 

AND X < =30 THEN B = 


O 


810 

IF 

X< >19 

THEN 

CALL HCHAR 

(3,19,32) 



820 

IF 

Z=4 THEN 1140 

830 

IF 

Z = -4 

THEN 

1 150 

840 

IF 

B=4 THEN 1170 

850 

IF 

B = - 4 

THEN 

1160 

860 

REK 

1 KON. 

1 


870 

CALL GCHAR(Y, 

X, M) 

880 

IF 

M = 9 1 

THEN 

U=91 

890 

IF 

M=32 

THEN 

CALL CHAR(6 

0, AS) 




900 

IF 

M=37 

THEN 

1870 

910 

IF 

M=97 

THEN 

2100 

920 

IF 

M = 32 

THEN 

U=32 

930 

IF 

M = 34 

THEN 

1180 

940 

IF 

M=34 

THEN 

U=43 

950 

IF 

M=43 

THEN 

2180 

960 

IF 

M = 38 

THEN 

GOSUB 2420 

970 

IF 

M =12 9 THEN Y = 2 

980 

IF 

M = 38 

THEN 

U = 9 1 

990 

IF 

M=i13 THEN U=i13 


lOOO 

IF 

M = 1 2 7 

THEN 

U= 1 27 


ioio 

IF 

M = 1 2 7 

THEN 

1700 


1020 

IF 

M= 1 31 

THEN 

U = 1 3 1 


1 030 

IF 

M = 36 

THEN ' 

GOSUB : 

2260 

1040 

IF 

M = 33 

THEN 

-C 

II 

Ul 


1050 

IF 

M = 1 0 4 

THEN 

GOSUB 

239 

0 






1060 

IF 

M= 1 04 

THEN 

U= 104 


1070 

IF 

M = 1 3 0 

THEN 

U=32 


1030 

IF 

M= 1 30 

THEN 

3170 


1090 

IF 

Y >23 

THEN 

Y=23 


1 lOO 

IF 

X=1 THEN 1140 


1 1 IO 

IF 

X = 32 

THEN 

1150 


1120 

CALL HCHAR(Y, 

X, 60) 


1130 

IF 

H 

II 

z 

z 

THEN 

730 : : 

GOT 

0 790 






1140 

X = 

x +1 : : 

CALL 

HCHAR 

( Y, X 

-1 , U) 

: *. 

GOSUB 

1270 

:: goto 8 

60 






1150 

x= 

x-i : : 

CALL 

HCHAR(Y,X 

+ 1 , U) 

; ; 

GOSUB 

1270 

:: goto 8 

60 






1160 

Y = 

y + i : : 

CALL 

HCHAR(Y-l 

,X,U) 

: : 

GOSUB 

1270 

:: goto 8 

60 






1170 

Y = 

Y - 1 : : 

CALL 

HCHAR ( Y + 1 

, X, U) 

: ; 

GOSUB 

1270 

:: goto 8 


60 

1180 ! GRAB 

1190 CALL SOUND (-20, HO, 4) 
1200 CALL CHAR (43,"OOOE151B4 
AEE4040") 

1210 CALL HCHAR(Y,X,43) 

1220 GF=GF-2 
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1230 DISPLAY AT<1,20)SIZE(5) 

: GF 

1240 M$="** GRAB GEFUNDEN ** 
1250 GOSUB 3200 
1260 GOTO 940 
1270 ' TON 

1280 CALL SOUND(77,900,7) 

1290 RETURN 

1300 ! POSITION 

1310 RANDOMIZE 

1320 XPOS=INT<RND*29)+2 

1330 IF XPOS >29 THEN 1320 

1340 YPOS=INT(RND*23)+5 

1350 IF YPOS >23 THEN 1340 

1360 RETURN 

1370 REM GRAB 1 

1380 CALL CHAR<34,BSn 

1390 FÜR AL=1 TO 19 

1400 GOSUB 1300 

1410 CALL HCHAR(YPOS,XPOS,34 
) 

1420 NEXT AL 
1430 RETURN 

1440 ! WASSEREINBRUCH 1 

1450 FOR H=1 TO 5 
1460 GOSUB 1300 
1470 CALL CHAR(36,B$) 

1480 CALL HCHAR(YPOS,XPOS, 36 
) 

1490 NEXT H 
1500 RETURN 
1510 ! GOLDFUND 1. 

1520 CALL CHAR(33,B$) 

1530 FOR GG=1 TO 44 
1540 GOSUB 1300 
1550 CALL GCHAR(YPOS,XPOS, L) 
1560 IF LO130 THEN 1540 
1570 CALL HCHAR(YPOS,XPOS, 38 
) 

1580 NEXT GG 

1590 RETURN 

1600 ! WAND 1 

1610 CALL CHAR(37,B$) 

1620 FOR W=1 TO 6 

1630 GOSUB 1300 

1640 FOR WY=1 TO 4 

1650 CALL HCHAR(YPOS+WY,XPOS 

, 37) 

1660 IF YPOS + WY >23 THEN 1680 

1670 NEXT WY 

1680 NEXT W 

1690 RETURN 

1700 ! EINZAHLEN 

1710 IF GF < =0 THEN 1730 

1720 GF = GF+INT(BW/ 10 ) 


1730 BW=BW+GF 

1740 DISPLAY AT(2, 1)SIZE(4) : 
BW 

1750 IF BW<0 THEN 3330 
1760 CALL SOUND(-10,440,9,66 
0,8) 

1770 GF=0 

1780 DISPLAY AT(1,20)SIZE<4) 

: GF 

1790 FOR J = 1 TO 10 

1800 CALL SOUND(-90,4000,8) 

1810 CALL HCHAR<Y,X,61) 

1820 CALL SOUND(-40,3000,6) 
1830 CALL HCHAR(Y,X,62) 

1840 NEXT J 

1850 IF HH=6 THEN 3590 

1860 GOTO 1020 

1870 ! WAND 2 

1880 CALL CHAR(97,"B050B050B 
050B050",98,"B153B55BB753B15 
3" ,99, "B153B157BB57B153") 
1890 M$="WAND BOHREN(J/N):? M 
1900 GOSUB 3200 

1910 CALL KEY(2,K,S):: IF S= 
O THEN 1910 

1920 IF K< >2 THEN 2060 :: GF 

=GF-2 :: CALL CHAR(60,AS) 
1930 DISPLAY AT(1,20)SIZE(4) 

: GF 

1940 FOR UU=1 TO 20 
1950 FOR D=1 TO 5 : : NEXT D 
1960 CALL SOUND(-30,-4,6) 
1970 CALL HCHAR(Y,X,98) 

1980 FOR UI=1 TO 5 

1990 CALL HCHAR(Y,X,99) , 

2000 CALL SOUND(-20,-2,6) 

2010 NEXT UI 

2020 NEXT UU 

2030 U=32 

2040 CALL HCHAR(24,1,130,30) 
2050 GOTO 930 
2060 ! POS.2 

2070 NN=1 

2080 CALL HCHAR(24, 1 , 130,30) 
2090 CALL HCHAR(Y,X,97) 

2100 CALL GCHAR(Y,X+l,B) : : I 
F B=32 THEN 2140 

2110 CALL GCHAR(Y,X-l , O) : : I 
F 0=32 THEN 2150 

2120 CALL GCHAR(Y+l,X,O) : : I 
F 0=32 THEN 2160 

2 130 CALL GCHAR(Y-l,X,O) : : I 
F 0=32 THEN 2170 
2140 X = X +1 :: GOTO 790 

2150 X = X- 1 :: GOTO 790 





2160 Y = Y +1 :: GOTO 790 

2170 Y=Y-i :: GOTO 790 
2180 ! GRAB 2 

2190 CALL CHAR <44, "0122D4291 
21C1463"):: CALL CHAR(60,A$) 
2200 CALL CHAR(133,"18187E7E 
18187EFF") 

2210 CALL HCHAR(Y,X,44) 

2220 CALL SOUND(1000,-3,5) 
2230 FOR B=i TO 500 :: NEXT 
B 

2240 CALL HCHAR(Y,X,133) 

2250 GOSUB 3330 
2260 ! WASSEREINBRUCH 2 

2270 CALL CHAR<104, "49922449 
92244992"):: CALL C0L0R(10,1 
6,6) 

2280 FOR TT = Y TO 23 : : ZC = 0 

2290 FOR D=1 TO 30 

2300 IF D=30 AND 2C=0 THEN 2 

380 

2310 CALL SOUND(-40, -3,4) 
2320 CALL GCHAR(TT,D,BB) 

2330 IF BB=32 THEN GOSUB 364 
O 

2340 IF BB=91 THEN GOSUB 364 
0 

2350 IF BB=133 THEN GOSUB 36 
40 

2360 NEXT D 
2370 NEXT TT 

2380 MS="* WASSEREINBRUCH *" 
:: GOSUB 3200 :: GF=GF-4 :: 

GOTO 2400 

'2390 GF = GF - 4 :: CALL CHAR(60 

,"0006C2433F246") 

2400 DISPLAY AT(1,20)SIZE(4) 

: GF 

2410 RETURN 

2420 REM GOLDFUND 2 

2430 WIH=WIH+1 :: CALL CHAR( 

60,AS) 

2440 IF WIH=43 THEN 3290 
2450 CALL CHAR(61,"1C221C7E1 
D5C6203") 

2460 CALL CHAR(62,"3844387EB 
83A46C0") 

2470 FOR J=1 TO 10 

2480 CALL SOUND(-90,4400,8) 

2490 CALL HCHAR(Y,X,61) 

2500 CALL SOUND(-40,3300,6) 
2510 CALL HCHAR(Y,X,62) 

2520 NEXT J 

2530 CALL CHAR(91,"OOOOOOOOl 
83E7FFF " ) 


2540 RANDOM IZE 

2550 WE=INT(RND*10)+1 

2560 GF=GF+WE 

2570 DISPLAY AT(1,20)SIZE(4) 
: GF 

2580 MS="** GOLD GEFUNDEN ** 

I« 

2590 GOSUB 3200 

2600 RETURN 

2610 ! EINLEITUNG 

2620 CALL CLEAR .* : CALL SCRE 

EN ( 1 1 ) 

2630 FOR C = 1 TO 24 STEP 23 : 

: CALL HCHAR(C,1,130,32):: N 
EXT C 

2640 CALL M A G NIF Y(4) 

2650 CALL SPRITE(#1,96,7,30, 
40,#2,100,7,40,80,83,104,7,5 
O,120) 

2660 CALL SPRITE(#4,108,7,60 
,160,#5,112,7,70,200) 

2670 MS=" SSSSSSSSS 
S $ % $ S S S" :: RESTORE 35 
70 : *, GOSUB 3450 
2680 M$="VIEL GLUECK BEIM SC 
HUERFEN" :: RESTORE 3570 :: 
GOSUB 3450 

2690 MS=" SSSSSSSSS 
S $ $ $ $ $ S" : : RESTORE 35 
70 :: GOSUB 3450 
2700 FOR T=13000 TO 110 STEP 
-300 :: CALL SOUND(44,T,5): 

: NEXT T 

2710 CALL DELSPRITE (ALL) : R 

ETURN 

2720 ! EINLEITUNG 2 

2730 CALL CLEAR :: CALL SCRE 
EN(5):: FOR F=1 TO 8 :: CALL 
COLCR (F, 16, 5):: NEXT F 
2740 DISPLAY AT(5,4):"DRUECK 

E:" :: DISPLAY AT(7,4):"1 FU 

ER SPIELERNLAERUNG" :: DISPL 

AY AT(9,4):"2 FUER SPIELBEGI 
NN" 

2750 F GR MM = 1 TO 30 

2760 CALL SOUND(100,2345,MM) 

2770 NEXT MM 

2780 CALL KEY(1,K,S):: IF S= 
O THEN 2780 
2790 IF K=7 THEN 2810 
2800 IF K=19 THEN 2850 
2810 DISPLAY AT(17,4):"MIT J 
OYSTIK’S ( J / N ) ? " :: ACCEPT A 

T(17,26)SIZE(1)BEEP:ZS 
2820 IF Z$=”J" THEN 2840 
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2830 NN=1 :: GOTO 450 

2840 DISPLAY AT(19,4):">ALPH 
A LGCK< AUSRASTEN !!" :: FOR 

B=i TO 300 : : NEXT B : .* GOT 
O 450 

2850 CALL CLEAR :: CALL SCRE 


EN (5) 

2860 PRINT :"GUTEN TAG...... 

....SIE WOLLEN HEUT 

E ONKEL SAN’SMINE ABBAUEN! N 

UN, DANN.GRABEN SIE MAL 

SCHOEN,ABER. .VORSICHT! ! . " 
2870 PRINT 

2880 PRINT .'"SIE WERDEN AUF 

ALTE.INDIANERGRAEBER 

STOSSEN.DIE SIE NUR >1 

MAL< BE-.TRETEN DUERFEN, 

DA SONST.EIN FLUCH SIE, " 

2890 PRINT 

2900 PRINT :"TOEDLICH TREFFE 
N WIRD!!." 

2910 print : : : 


2920 DISPLAY AT(24,2):"TASTE 
DRUECKEN ! " 

2930 CALL KEY(0,K,S):: IF S= 
O THEN 2930 

2940 CALL SOUND(200,4000,4) 
2950 CALL CLEAR 

2960 PRINT ;"NUN .MUESSEN SIE 
MOEGLICHST, DIE MINE MIT GE 
WINN ABBAUEN" 

2970 PRINT 

2980 PRINT :"JEDOCH,DAZU BRA 


UCHT MAN.MATERIAL, SO Z.B 

. EINEN.BOHRER. " 


2990 PRINT 

3000 PRINT :"UNGERECHNET KOS 
TET DANN,:...1 MAL GRABEN 1$ 

.1 MAL BOHREN 2$ 

.1 MAL DURCH WAS 

SER DURCH-... TAUCHEN.4$ 

II 

3010 print : : : 

3020 DISPLAY AT(24,2):"TASTE 
DRUECKEN!" 

3030 CALL KEY(0,K,S):: IF S= 
O THEN 3030 :: CALL SOUND(10 
O,4400,5) 

3040 PRINT 

3050 PRINT :"DAS JEWEILIGE G 


ELD , DAS.MAN DURCH GOLDF 

UNDE.ERHAELT, KANN WA 


EHREND DES...SPIELS ZUR BANK 
GEBRACHT....WERDEN, 


3060 

PRINT :"WOBEI MAN 10% D 

ES MQMEN-....TANEN WERTES VO 

N DER 

BANK...ERHAELT." 

3070 

PRINT :"SCHALTER= X" 

3080 

PRINT :"IST DIE MINE ER 

SCHOEPFT,....MUSS MAN ZUR BA 

NK, ZUR.ENDABRECHNUNG. 

IST DER.ENDBETRAG NEGAT 

IV,HAT MAN...VERLOREN.!" 

3090 

PRINT 

3100 

PRINT :"VIEL GLUECK!" 

3110 

FOR B= 1 TO 300 : .* NEXT 

B 


3120 

PRINT : : : 

3130 

DISPLAY AT(24,2):"TASTE 

DRUECKEN!" 

3140 

CALL KEY(0,K,S):: IF S= 

0 THEN 3140 

3150 

CALL SOUND(400,3300,4) 

3160 

GOTO 2730 

3170 

GF=GF-1 :: CALL CHAR(60 

, AS) 


3180 

DISPLAY AT(1,20)SIZE(4) 

: GF 


3190 

GOTO 1090 

3200 

! BERICHT 

3210 

C=INT(16-LEN (MS) /2) 

3220 

FOR 1=1 TO LEN(MS) 

3230 

CALL HCHAR(24,C+I , 42) 

3240 

CALL HCHAR<24,C+I,ASC(S 

EG*(MS,1,1))) 

3250 

NEXT I 

3260 

RETURN 

3270 

M$=" MINE IST ERSCHOEPF 

T - : 

: gosub 3200 :: call so 

UND(4000,440,5,880,5,1760,5) 

3280 

FÜR D=1 TO 100 :: NEXT 

D : : 

CALL SOUND(1000,440,3,3 

000,5) 

3290 

MS= "***** EINZAHLEN -X-** 

**" 


3300 

GOSUB 3200 

3310 

CALL SOUND(300,4400,6,5 

500,7) 

3320 

HH=6 :: GOTO 1120 

3330 

REM M-END 

3340 

RESTORE 3350 

3350 

DATA 294,450,294,350,29 

4,300 

, 294,350,349,450,330,35 

0,330 

,400,295,400,294,350,27 

7,400 

,294,650 

3360 

FOR M=1 TO 11 

3370 

READ B,A 

3380 

CALL SOUND(A,B,3, B*2,3, 

B / 2,3 

) 
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3390 NEXT M 

3400 M$="NOCH EIN SPIEL (J/N 

)?" :: GOSUB 3200 

3410 CALL KEY(2,K,S):: IF S= 

O THEN 3410 

3420 IF K=2 THEN 450 

3430 CALL SCREEN(2):: CALL S 

OUND(500,2345,5,3456,8):: CA 

LL CLEAR :: END 

3440 RESTORE 3550 

3450 C = INT(16-LEN(M$) /2) : : N 

= N + 2 : : RANDOMIZE 

3460 FOR 1=1 TO LEN(M*) 

3470 CALL HCHAR <N,C + I,42) 
3480 CALL HCHAR(N,C+I,ASC(SE 
GS(MS,I 9 1))) 

3490 READ TTO 

3500 CALL SOUND(-90,TTO,6,TT 
0*2,6,TTO/2,6) 

3510 X=INT(RND*30)+1 

3520 F=I NT(RND*9)+1 :: CALL 

COLOR(1,F,11) 

3530 NEXT I 
3540 RETURN 

3550 DATA 494,392,494,392,44 
O, 392,4 40,392,392,392,349,34 
9,392,440,349,392,392,440,49 
4,392,440,392,440,392,392 
3560 DATA 392,494,392,494,44 
0,392,440,392,392,349,349 
3570 DATA 1760,880,1760,880, 
1760,1047,988,932,659,880,98 
8,1109,932,1047,1175,1760,88 
O,1760,830,988,1047,880,695 
3580 DATA 380,1760,880,1760, 
1047,938,932,659,880,988, 110 
9 

3590 RESTORE 3550 :: FOR M=i 
TO 20 

3600 READ X 

3610 CALL SOUND(444,X,4+M) 

3620 NEXT M 

3630 GOTO 3400 

3640 CALL HCHAR(TT,D, 104 ) : : 

ZC=5 :: RETURN 


Kniffei 

von Franz Meier 

Ein Extended Basic Spiel, das die Spielabläufe des altbekannten 
Würfelspieles nachvollzieht. Einige aer Grafik- und Tonmöglich¬ 
keiten werden genutzt. Der Programmaufbau ist teilweise etwas 
schwerfällig, was jedoch dem Spielspaß keinen Abbruch tun soll¬ 
te. Für 1 - 5 Spieler. 


lOO 
HO 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
N (3) 


******************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 


KNIFFEL 

BY 

FRANZ MEIER 

Bearbeitet vom 
Team des 
Aktuell Verlages 
Muenc hen 


* 

* 

* 

* 

* 

* 

* 

* 

* 


*Benoetigte Geraete* 
* TI 99/4A Konsole * 
Extended Basic 
Emp-f. REKORDER 
oder Disc 


Speicherbelegung 
8190 Bytes 


******************** 
CALL CLEAR !: CALL SCREE 
: for 1=1 to 14 ::.call 
COLOR(I, 2,3):: NEXT I 
310 CALL CHAR(97,"0000001818 
",98, "030300000000C0C0" ,99, " 
030300181800C0C0",lOO,"C3C30 
0000000C3C3") 

320 CALL CHAR(101,"C3C300181 
800C3C3",102,"C3C300C3C300C3 
C3" , 103, "OOOOOOOOOOFF" , 104, " 
OOOOFF") 

330 CALL CHAR(105,"040404040 
4040404",106,"24242424242424 
24", 107, "2020202020202020" , 1 
08,"0000000000030404") 

340 CALL CHAR(109,"OOOOOOOOO 
0C02020",110, "040403", 111 , "2 
020C0",96,"OO") 

350 CALL CLEAR :: DISPLAY AT 

(11,12):"*********" :: displ 
ay at(12,12):"*" :: Display 
at( 12 ,20):"*" :: Display at< 

13 , 12 ):"*********" 

360 RESTORE 390 
370 x= l5 :: Y=440 :: for i=i 
to 7 :: read a :: for j=65 
TO A :: CALL HCHAR(12,X,J):: 

CALL SOUND(-50,Y,O):: NEXT 
J :: x=x+ l :: y=y+32 
380 CALL SOUND (200, -2, O) N 
I 

DATA 75,78,73,70,70,69,7 


EXT 

390 

6 

400 

I 


FOR 1=1 TO 1000 


NEXT 
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410 CALL CLEAR :: DISPLAY AT 
(1,5) '."BITTE GEBEN SIE DIE A 
NZAHL":"DER SPIELER AN (1-9) 

:» :: ACCEPT AT(3,22)SIZE(1) 

VALIDATE("12345")BEEP:ANZ 
420 DISPLAY AT<5 y 1)SIZE<28): 
“BITTE DIE NAMEN DER SPIELER 


430 FOR 1=1 TO ANZ :: CALL H 
CHAR(1*2+6,4,1+48):: DISPLAY 
AT(1*2+6,3)SIZE(9):".SPIELE 
r:" :: next i 

440 FOR 1=1 TO ANZ :: ACCEPT 
AT(1*2+6,14)SIZE(10)BEEP:NA 
M* ( I ) : *. NEXT I 

450 CALL CLEAR :: CALL HCHAR 
(1,2,103,30):: CALL HCHAR(24 
,2,104,30):: CALL OCHAR(2,1, 

105.22) :: CALL OCHAR(2,32,10 

7.22) :: CALL HCHAR(1,1,108,1 
) 

460 CALL HCHAR(1,32,109,1):: 

CALL HCHAR(24,1, 1 IO, 1): : CA 
LL HCHAR(24,32,111,1) 

470 DISPLAY AT(2 , 12)SIZE(18) 
:"*KNI FF EL*" 

480 DISPLAY AT(3,3):"1ggm... 

...lggm......lggm" :: DISPLA 

Y AT (4,3) : " i . . k.i . . k . . . 

. . . i . . k " *.: DISPLAY AT(5,3): 

" i . . kl.i . . k3.i . . k5 " 

490 DISPLAY AT(6,3):"nhho lg 
gm nhho lggm nhho" :: DISPLA 

Y AT (7,3) : ".i . . k.i . 

.k" :: DISPLAY AT(8,3) : " . . . . 

. i. .k2.i. .k 4" :: DISPLAY 

AT (9,3) : ".nhho.nhh 

o " 

500 DISPLAY AT(11,20)SIZE(5) 
•.“Wurf:" :: Display at(16,1) 
size(10 ):"a einser:" :: disp 
LAY AT(17,1)SIZE(10): M B ZWEI 
er:" :: Display at(18,dsize 
( io):"c dreier:" 

510 DISPLAY AT(19,1)SIZE(10) 

:"D vierer: h :: Display at( 2 
o, DSIZE(IO) : "E fuenfer: " :: 

DISPLAY AT(21,1)SIZE(10):"F 
sechser:" :: Display at(22, 
3) SIZE ( 12) : •'= = = = = = = = = = = =" 


520 DISPLAY AT(23,3)SIZE(IO) 

: n suM.i:" :: Display at(16,i 
7)size(io):"Bonus:" :: displ 
AY AT(17,15)SIZE(IO): h G FULL 
HS:" :: DISPLAY AT(18,15)SI 

ZE(10):"H KL.STR.:" 

530 DISPLAY AT<19,15)SIZE(1O 

>:"i gr.str.:" :: Display at 

(20,15)SIZE(10):"J 4.PASCH:" 

:: DISPLAY AT(21,15)SIZE(10 
): M K kniffel: b :: Display at 

(22,17)SIZE(12):"=========== 

s n 

540 DISPLAY AT(23,17)SIZE(8) 

:"SUMME:" :: DISPLAY AT(10,3 
) : "1 gm 1 gm 1 gm1 gm 1 gm" :: DISPL 

AY AT(11,3)SIZE(17):"i ki ki 
ki ki k" :: DISPLAY AT(12,3 
):"nhonhonhonhonha" 

550 DISPLAY AT(13,1)SIZE(11) 

:"W=WUERFELN*" :: DISPLAY AT 

(13,12)SIZE(17):"N=NAECHST.S 
PIELER" :: DISPLAY AT(14,1)S 
IZE(16):"1-5=UEBERTRAGEN*" 
560 DISPLAY AT(14,17)SIZE(13 
): m a-k=speichern" :: a=48 :: 

CALL HCHAR(11,28,A):: DISPL 
AY AT(2,2)SIZE(10):NAM*(1) 
570 FOR 1=6 TO 18 STEP 3 :: 
CALL HCHAR(11,I,96):: NEXT I 
:: DISPLAY AT(15,1):"L>l-5= 
LOESCHEN * R=RETURN" 

580 X=1 
590 GOTO 790 

600 A=A+1 :: IF A=52 THEN 61 

O ELSE 620 

610 A=48 :: FOR 1=6 TO 18 ST 
EP 3 : : CALL HCHAR ( 1 1 , I,96) : 

: next i :: goto 1040 

620 CALL HCHAR(11,28,A):: CA 
LL MAGNIFY(2):: FOR 1=1 TO 5 
630 RANDOMIZE 
640 CALL TON 

650 R=96+INT(RND*6)+1 :: S=9 

6+INT(RND*6)+1 :: T=96+INT(R 

ND*6)+1 :: U=96+INT(RND*6)+1 

:: V=96+INT(RND*6)+1 


660 

CALL 

GCHAR(11, 

6,L) : : 

IF 

L >96 

THEN 

R = 32 



670 

CALL 

GCHAR(11, 

9,L) : : 

IF 

L >96 

THEN 

S = 32 



680 

CALL 

GCHAR(11, 

12,L) : 

: IF 

L >96 THEN T = 32 



690 

CALL 

GCHAR(11, 

15,L) : 

: IF 


L >96 THEN U = 32 














700 CALL GCHAR(11,18,L):: IF 
L >96 THEN V=32 

710 CALL SPRITE(#1,R,16,25,4 
1):: CALL SPRITE(#2,S,16,49, 
81):: CALL SPRITE(«3,T,16,25 
, 121 ) 

720 CALL SPRITE(#4,U,16,49,1 
61):: CALL SPRITE(#5,V,16,25 
, 201 ) 

730 NEXT I 
740 X1=R 
750 X2=S 
760 X3=T 
770 X4=U 
780 X5=V 

790 CALL KEY(0,K,S):: IF S=0 
THEN 790 


800 

IF 

K = 49 

THEN 

990 

810 

IF 

K = 50 

THEN 

lOOO 

820 

IF 

K = 5 1 

THEN 

1010 

830 

IF 

K = 52 

THEN 

1020 

840 

IF 

K = 53 

THEN 

1030 

850 

IF 

K = 87 

THEN 

600 

860 

IF 

K = 78 

THEN 

1040 

870 

IF 

K = 65 

THEN 

1170 

880 

IF 

K = 66 

THEN 

1190 

890 

IF 

K = 67 

THEN 

1210 

900 

IF 

K = 68 

THEN 

1230 

910 

IF 

K = 69 

THEN 

1250 

920 

IF 

K = 70 

THEN 

1270 

930 

IF 

r\ 

II 

Y 

THEN 

1290 

940 

IF 

K = 72 

THEN 

1310 

950 

IF 

K=73 

THEN 

1330 

960 

IF 

l\ 

II 

Y 

THEN 

1350 

970 

IF 

K = 75 

THEN 

1370 

980 

IF 

K = 76 

THEN 

1390 


990 CALL GCHAR(11,6,P):: IF 
P >96 THEN 790 :: CALL HCHAR( 
11,6,XI):: CALL DELSPRITE (#1 
):: GOTO 790 

lOOO CALL GCHAR(11,9,P):: IF 
P >96 THEN 790 :: CALL HCHAR 
<11,9,X2):: CALL DELSPRITE(# 
2):: GOTO 790 

1010 CALL GCHAR(11,12,P):: I 
F P >96 THEN 790 :: CALL HCHA 
R(11,12,X3):: CALL DELSPRITE 
(#3):: GOTO 790 

1020 CALL GCHAR(11,15,P):: I 
F P >96 THEN 790 :: CALL HCHA 
R(11,15,X4):: CALL DELSPRITE 
(«4):: GOTO 790 


1030 CALL GCHAR(11,18,P):: I 
F P >96 THEN 790 : : CALL HCHA 
R(11,18,X5):: CALL DELSPRITE 
(#5):: GOTO 790 
1040 x=x+i :: a=48 :: if x=a 
NZ+ l THEN 1050 ELSE 1080 
1050 X=1 :: FOR 1=6 TO 18 ST 

EP 3 :: CALL HCHAR(11,I,96): 

: NEXT I 
1060 Q = Q+ 1 

1070 IF 0=11 THEN 1510 ELSE 
1080 

1080 DISPLAY AT(2,2)SIZE(10) 
: H,, 5NAM$(X):: sumi (X) =ai (X) + 
A2(X) +A3(X) +A4(X) +A5(X) +A6 (X 
):: DISPLAY AT(23,11)SIZE(3) 

:using "###":sumi< x) 

1090 FOR 1=6 TO 18 STEP 3 :: 

CALL HCHAR(11,I,96):: NEXT 
I 

llOO IF SUMI(X)>50 THEN 1110 
ELSE 1120 
lllO BONUS(X)=100 
1120 DISPLAY AT(16,25)SIZE(3 
):using "###":BONUS(X):: sum 
2(X)= S U M1 (X) +BONUS(X) +A7(X) + 
A8(X) +A9(X) + A1O(X) +A11 (X) :: 
DISPLAY AT(23,25)SIZE(3):USI 
NG "###":SUM2(X) 

1130 DISPLAY AT(16,12)SIZE(2 
>:using "tt#”: Ai (X) : : Display 

AT(17,12)SIZE(2):USING 

:A2(X):: Display at(18,12>si 
ze(2):using A3(X):: dis 

PLAY AT(19,12)SIZE(2):USING 
" ##":A4(X) 

1140 DISPLAY AT(20,12)SIZE(2 
):using :A5(X):: Display 

AT (21,12) SIZE (2) : USING "****" 

:A6(X) 

1150 DISPLAY AT(17,26)SIZE(2 

):using "a#":A7(X):: Display 

AT ( 18,26) : USING " tttt " : A8 ( X ) *. 

: DISPLAY AT(19,26):USING "# 
m":A 9(x):: Display at(20,26) 

: using aio (X) 

1160 DISPLAY AT(21,25):USING 
:Ail(X):: goto 790 
1170 IF Al(X)>0 THEN 790 :: 
CALL GCHAR(11,6,Y1):: CALL G 
CHAR(11,9,Y2):: CALL GCHAR(1 
1,12,Y3):: CALL GCHAR(11,15, 
Y4) : : CALL GCHAR(11, 18,Y5) : : 

Al(X)=(Y1+Y2+Y3+Y4+Y5)-480 
1180 GOTO 1080 


24 




1190 IF A2(X)>0 THEN 790 :: 
CALL GCHAR(11,6,Yi)d CALL G 
CHAR<11,9,Y2)d CALL GCHAR(1 

1.12, Y3>:: CALL GCHARdl, 15, 
Y4):: CALL GCHARdl, 18, Y5) : : 

A2(X)=(Y1+Y2+Y3+Y4+Y5)-480 
1200 GOTO 1080 

1210 IF A3(X) > O THEN 790 :: 

CALL GCHAR( 1 1,6,Y1) : : CALL G 
CHAR(11,9,Y2):: CALL GCHAR(1 
1 , 12 , Y3 ) : : CALL GCHARdl, 15, 
Y4):: CALL GCHAR(11,18,Y5):: 

A3(X)=(Y1+Y2+Y3+Y4+Y5)-480 
1220 GOTO 1080 
1230 IF A4(X) > O THEN 790 :: 
CALL GCHAR<11,6,Y1):: CALL G 
CHARd1,9,Y2>d CALL GCHAR(1 

1.12, Y3):: CALL GCHARdl, 15, 
Y4):: CALL GCHAR(11,18,Y5):: 

A4(X)=(Y1+Y2+Y3+Y4+Y5)-480 
1240 GOTO 1080 

1250 IF A5(X) > O THEN 790 d 
CALL GCHAR(11,6,Y1) : : CALL G 
CHAR<11,9,Y2):: CALL GCHARd 
1 , 1 2 , Y3 ) : : CALL GCHARdl, 15, 
Y4):: CALL GCHAR<11,18,Y5)d 
A5(X)=(Y1+Y2+Y3+Y4+Y5)-480 
1260 GOTO 1080 
1270 IF A6(X)>0 THEN 790 d 
CALL GCHAR(11,6,Y1)d CALL G 
CHARd1,9,Y2)d CALL GCHARd 

1.12, Y3 ) : : CALL GCHARdl, 15, 
Y 4) d CALL GCHAR( 11 , 18,Y5) d 

A6(X)=(Y1+Y2+Y3+Y4+Y5)-480 
1280 GOTO 1080 
1290 IF A7(X) > O THEN 790 d 
CALL GCHAR(11,6,Y1)d CALL G 
CHARd1,9,Y2)d CALL GCHAR<1 

1,12, Y3 ) : ! CALL GCHARdl, 15, 
Y4)d CALL GCHARd1,18,Y5)d 
A7(X)=(Y1+Y2+Y3+Y4+Y5)-460 
1300 GOTO 1080 
1310 IF A3(X) > O THEN 790 d 
CALL GCHAR(11,6,Y1)d CALL G 
CHARd1,9,Y2)d CALL GCHAR(1 
1 , 1 2 , Y 3 ) : : CALL GCHARdl, 15, 
Y4)d CALL GCHARd1,18,Y5)d 
A8(X)=(Y1+Y2+Y3+Y4+Y5)-460 
1320 GOTO 1030 
1330 IF A9(X) > O THEN 790 d 
CALL GCHAR( 1 1,6,Y1) d CALL G 
CHAR(11,9,Y2)d CALL GCHARd 
1, 12, Y3) : : CALL GCHARdl, 15, 
Y4)d CALL GCHARd1,18,Y5)d 
A9(X)=(Y1+Y2+Y3+Y4+Y5)-450 


1340 GOTO 1030 

1350 IF A1O(X) > O THEN 790 d 
CALL GCHAR(11,6, Y1) d CALL 
GCHAR(11,9,Y2)d CALL GCHAR( 
11, 12,Y3) : : CALL GCHARdl, 15 
,Y4)d CALL GCHARd1 , 18,Y5) : 

: AlO(X)=(Y1+Y2+Y3+Y4+Y5)-44 
O 

1360 GOTO 1080 

1370 IF All(X)>0 THEN 790 d 
CALL GCHAR(11,6,Y1)d CALL 
GCHARd1,9,Y2)d CALL GCHAR( 
11, 12,Y3) : : CALL GCHARdl, 15 
,Y4)d CALL GCHARd1, 18, Y5) : 

: Al 1 (X) = (Y1+Y2 + Y3 + Y4 + Y5)-38 


1380 GOTO 1080 

1390 CALL KEY(l,K,S)d IF S= 
O THEN 1390 

1400 IF K=19 THEN 1460 
1410 IF K=7 THEN 1470 
1420 IF K=8 THEN 1480 
1430 IF K=9 THEN 1490 
1440 IF K=10 THEN 1500 
1450 IF Kr6 THEN 790 
1460 CALL HCHARd1,6,96)d G 
OTO 1390 

1470 CALL HCHAR(11,9,96)d G 
OTO 1390 

1480 CALL HCHARd1,12,96)d 
GOTO 1390 

1490 CALL HCHARd1,15,96)d 
GOTO 1390 

1500 CALL HCHARd1,18,96)d 
GOTO 1390 

1510 CALL CLEAR d CALL DELS 
PRITE(ALL) 

1520 FOR 1 = 1 TO ANZ d. DISPL 
AY AT < 1*2,4)SIZE dO> :NAM«*< I > 
d DISPLAY AT(1*2,16)SIZE(3) 
IUSING "###":SUM2<I>d NEXT 


I 

1530 DISPLAY AT(24,2):"NOCH 
EIN SPIEL? (J/N)" 

1540 CALL KEY(0,K,S)d IF S= 
O THEN 1540 

1550 IF K=74 THEN 1570 
1560 IF K=78 THEN 1580 
1570 FOR X=1 TO ANZ d BONUS 
< X)=0 d Al (X)=0 d A2(X)=0 
d A3(X)=0 d A4(X)=0 d A5( 
X)=0 d A6 < X) =0 d A7(X)=0 : 

: A 8(X)= O d A9(X)=0 d A1O( 
X)=0 d All(X)=0 d NEXT X : 

: 0=0 :: GOTO 300 







»:-oc- 
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1580 FOR 1 = 1 TO 500 :: NEXT 

I :: call clear :: end 

1590 SUB TON 

1600 FOR 0=1 TO 10 :: CALL S 
0UND(5,-1,0):: NEXT o :: sub 
END 

HINWEIS BEIM EINTIPPEN UNSERER 
PROGRAMMLISTINGS: 

Grundsätzlich müssen Sie unsere 
Programme genau so eintippen, wie 
sie abgedruckt sind. Wir haben zu 
diesem Zweck den Ausdruck auf 28 
Zeichen/Zeile = Bildschirmformat 
beschränkt, obwohl auch wir mit 
einem 80-Zeichen-Drucker klotzen 
könnten. Nur, ist es nicht besser, 
wenn unser Listing exakt Ihrem Bild¬ 
schirm entspricht? 

Der besseren Lesbarkeit halber sind 
die Listings 1 1/2-zeilig gedruckt, 
wobei die Zeilennummer jeweils her¬ 
vorgehoben ist. 

Die einzige wirkliche Besonderheit 
liegt in PRINT und DISPLAY Anwei¬ 
sungen. Hier haben wir, falls es zum 
Bildschirmaufbau notwendig ist, Leer¬ 
zeichen durch Punkte ersetzt, um 
Ihnen das Abtippen zu erleichtern. 

Hier gilt also: Überall dort, wo meh¬ 
rere Punkte stehen, die gleiche An¬ 
zahl Leerzeichen tippen. 

Das ist der ganze Zauber... 

Übrigens, wenn Ihnen das Tippen zu 
lästig ist, schauen Sie doch mal auf 
der Seite mit unserem Kassetten¬ 
service nach. Dort finden Sie ein 
tolles Supersoftware-Sonderangebot. 


Crazy Koala 

Das Extended Basic Spielprogramm „Crazy Koala“ entspricht 
im Spielaufbau den unter den verschiedensten Namen bekannten 
„Leiterspielen“, bei denen die Spielfiguren hier ein Koala-Bär — 
über verschiedene Spielebenen an sein Ziel gelangen soll. Die 
Ton- und Grafikmöglichkeiten des TI wurden gut genutzt. Das 
Spiel ist mit mehreren Handicaps sowie Bonuspunkten ausge- 

Zum Spielablauf: 

Der Koalabär wird mit den Pfeiltasten über das Spielfeld geführt; 
jede gefressene Frucht ergibt Bonuspunkte. Als Gegner muß der 
Spieler auf ein Felsbrocken werfendes Ungeheuer und auf einen 
über den Bildschirm fliegenden Geier achten. Sobald der Koala 
sem Ziel — sein Baby - erreicht hat, wird der Spieler mit einer 
Melodie belohnt. 


1 O O !*********************** 
HO !*. CRAZY. KOALA. . C. . BY . . * 

120 !*.MARK. SMETANA. . . . * 

130 !*..ANDOVER.NJ... 07821.* 

140 !*...UEBERSETZT...UND..* 

150 !*...BEARBEITET...VOM..* 

160 !*...TEAM.DES.AKTUELL. . * 

170 !*..VERLAGES..MUENCHEN.* 

180 ! *.* 

190 '*.BENOETIGTE.GERAETE: .* 

200 !*..TI.99/4(A).KONSOLE.* 

210 !*..EXTENDED.BASIC.* 

220 !*..CASSETTENRECORDER..* 

230 !*..ODER.DISKETTENSTAT.* 

240 ! *.* 

250 !*.SPEICHERBELEGUNG:...* 

260 !*.. 10247. BYTES.* 

2 7 0 I *********************** 

280 CALL MAGNIFY<3):: CALL C 
LEAR :: CALL SCREEN(11) : : GÜ 
SUB 1610 : CALL SCREEN (15) 

290 CALL CHARi960000060909 
79DEFEFDFB371F1F1 Dl 830000000 
00000G0000F0F8FCFEFFFF1E7C") 
300 CALL CHAR(100,"OOOOOC121 
27EDCFEFF7F3F1F1F1F3B6000000 
0G000C000E0F8FCFCFEFEE78101" 

) 

3 10 A3ip="000000G0000000000Fl 

F3F7FFFFF783E0G006090909E7B7 
F3FDEECFSFSB8180C 11 :: CALL C 

HAR( IC* ,A3S) 

320 CALL CHAR(i08,"OOOOOOOOO 
00000071F3F3F7F7FE7818000003 
04S487E3B7FFFFEFCFSF8F8DC06" 

) 

330 CALL CHAR<112, "0C1F1F0F0 
723373F1F0F27373F1F0F0030F8F 
3F0ECC4ECFCF8F0E4ECFCF3F") 

340 CALL CHAR(116,"033C767F3 
E 41) F b F 7 ? F 3 F O 7 O 3 O O O O O O O O 8 O 4 O 8 
00QG080C0E0F8F8F8F333180C04" 

) 

350 CALL CHAR(120,"010201000 
00i03 071F1F1FlF1C183G20C03C6 
EFE7CB2D7EFFEFCE0C", 72, - 1023 
636COB3330000000000000000000 
COOOOOGOOOQOOOOOOO ) 

360 CALL CHAR(76,"0402020606 
OE IC700000000000000000000000 
OOGOOOOOOOOO",80, 1 10037EFFFF 
FF7E3COOOOOOÖOOÖOOOOOOOOOOOO 

OGOOOOGÜOOOO") 


















370 CALL CHAR(34,"04083E5D3E 
3E3E1C0000000000000000000000 
000000000000 , 83 , " 031 01 03C7E 

7E7E3COOOOOOOOOOOOOOOOOOOOOO 
000000000000 ) 

380 CALL CHAR(92,"03102844E4 
EE4E040000000000000000000000 
OOOOOOGGOOOO”.68,"1010387C38 
7C7C330000000000000000000000 
000000000000'} 

390 CALL CHAR(140,"081038387 
C7C7C3S00000000000ÜOOOOOO000 
OOOOOCOOOOOOO",124,"00000000 
00000000003BoFFFFF7700000000 
000000000031FFEFOPFFFFF") 

410 CALL CHAR(128."OOOOOOOOO 
I O0ÜOOOOOO3B6FFFFF77000000000 
006OE 1E3E7CF8F1FFFFFFF") 

420 CALL CHAR(132,”000606030 
507030D1E3F37373636362600606 
0C0A0E0C0E078FCECEC6C6C6C64" 

j 

430 CALL CHAR(136000006090 
90D02070D1E3F3F3F3F3F1DOOOO1 
82424ECD0F0F 0D030FGD0D0D0D0" 

) 

440 CALL CHAR(360000000003 
O 7 O F1F3F3F3F3F3F1F1F0F000000 
0GE0F0F8F8FCFCFCFCFCF8FOE O" ) 
450 CALL CHAR(40,"FF8080FFFF 
8030FF",41,"FFOIOIFFFFOIOIFF 
".45, "FFFEFFFEFFFEFFFE 11 ,46, " 
7FFF7FFF7FFF7FFF 11 > 

460 CALL CHAR(42,"80C0FFFFFF 
FFFFSO“,43,"0103FFFFFFFFFF01 
”, 44, "OOOOFFFFFFFFFF",34, "FC 
FEFFFFFFFFFEFC") 

470 CALL CHAR(35,"3F7FFFFFFF 
FF7F3F", 58, "OOOOOOOOOOOOOOFF 
",59,"OOOOOOOOOOOOFF",60,"00 
OOOOOOOOFF") 

480 CALL CHAR(61,"OOOOOOOOFF 
" , 62, ,! OOOOOOFF " ,63, "OOOOFF“', 
64, "OOFF" , 65, ’’FF : ’ ) : : CALL CL 
EAR :: FOR A=i TO 15 STEP 2 
490 FOR F=i TO 2 :: CALL HCH 
AR(23, 1+ ( A + F ) ,57+(A+l) / 2) : : 
NEXT F :: NEXT A 

500 FOR A=i TO 11 STEP 2 :: 

FOR F=l TO 2 :: CALL HCHAR(2 
2,17+(A+F),57+(A+l)/2):; N EX 
T F :: NEXT A 


510 FOR A-l TO 15 STEP 2 :: 
^OR F=1 TO 2 :: CALL HCHARfl 
4,1+(A+F),57+(A+l)/2):: NEXT 
F : : NEXT A 

520 FOR A=1 TO 11 STEP 2 :: 
FOR F=1 TO 2 :: CALL HCHAR(1 
3 , 1 7+ (A + F) ,57+ (A+1) /2) : : NEX 
T F :: NEXT A 

530 FOR A=1 TO 15 STEP 2 :: 
FOR F=1 TO 2 :: CALL HCHAR(6 
>1+(A+F),57+(A+l) /2 ):: NEXT 
F :: NEXT A 

540 FOR A=i TO 11 STEP 2 :: 
FOR F =1 TO 2 : : CALL HCHAR(5 
, 17+ (A + F) ,57+ (A+l) /2) : : NEXT 
. F :: NEXT A :: CALL HCHAR(2 
,3,58,28) 

550 FÜR A—1 TO 15 STEP 2 : : 
FOR F=i TO 2 :: CALL HCHAR(1 

8, 1+ (A + F) ,66- (A+l) /2) : : NEXT 
p :: NEXT A 

560 rOR A=i TO 11 STEP 2 :: 
FOR F=1 70 2 :: CALL HCHAR(1 

9, 17+ (A + F) ,66- ( A + 1 ) / 2) : .* NEX 
T F :: NEXT A 

570 FOR A =1 TO 15 STEP 2 : : 
FOR F=1 TO 2 :: CALL HCHAR(1 
0,1+(A+F),66-(A+l)/2):: NEXT 
F :: NEXT A 

580 FOR A=1 TO 11 STEP 2 :: 
FOR F —1 TO 2 :: CALL HCHAR(1 
1,17+(A+F),66-(A+l)/2):: NEX 
T F :: NEXT A 

590 CALL VCHAR(1, 1,46,24) : : 
CALL OCHAR(1,2,45,24):: CALL 
VCHAR(1,31,46,24):: CALL WC 
HAR(1,32,45,24) 

600 CALL VCHAR(19, 17>40,4) : : 

CALL VCHAR(19,18,41,4):: CA 
LL VCHAR(15,3,40,3)I: CALL V 
CHAR ( 15,4,41,3) : CALL VCHAR 

(11,21,40,3) 

610 CALL VCHAR(11,22,41,3) : : 
CALL VCHAR(7,5,40,3):: CALL 
VCHAR(7,6,41,3):: CALL VCHA 
Ri3,23,40,3):: CALL VCHAR(3, 
24,41,3) 

620 CALL SPRITE(#1,92,7,150, 
40):: CALL SPRITE(#2,72,8,15 
2.120):: CALL SPRITE(#3,76,1 
1,110,96):: CALL. SPRITE (#4,8 
0.9,120,232) 







630 CALL SPRITE(#5,88,12,82, 
32):: CALL SPRITE(#6,83,10,8 
2,128):: CALL SPRITE(#7,88,4 
,50,88):: CALL SPRITE(#8,140 
, i 1,5 6,2 ö 2 ) 

640 CALL SPRITE(#9,68,4,17,4 
0):: CALL SPRITE(#10,84,2,17 
,112):: CALL SPRITE(#11,132, 
11,1,120):: CALL SPRITE(#12, 
136,16,1,216) 

650 CALL SPRITE(#13,104,16,1 
69,17):: RANDOMIZE :: IF XZ= 
o THEN SP=i5 :: L=i :: x=i66 
:: y=l7 :: PL=2 :: pr=- 2 :: 
TF=2 :: E=i :: G=i :: Bonus 
= 2500 :: Ti m=o :: score=o :: 


TF=2 :: E=l :: G=i :: Bonus 
=2500 :: TIm=o :: score=o :: 
KOALA=3 

660 DISPLAY AT(24,1)SIZE(5): 
SCORE :: DISPLAY AT(24,10)SI 
ZE(5);BONUS :: DISPLAY AT<24 
,20)SIZE(2):KOALA 
670 CALL SPRITE(#15,36,16,1, 
14,SP,O) 

680 CALL KEY(0,K,S):: IF SO 

0 THEN GOSUB 810 

690 CALL COINC (#13,#15, 13, C) 

: : IF C = -1 THEN 950 

700 CALL POSITION(#15,M, N) : : 

IF M >164 THEN GOSUB 790 
710 CALL KEY(0,K,S):: IF SO 
0 THEN GOSUB 810 
720 CALL COINC(#13,#15,13,C) 
:: IF C=-l THEN 950 
730 IF T = 0 THEN A=INT(RND*5) 

: : IF A=1 THEN 870 
740 IF T=1 THEN CALL POSITIO 
N(#14,G,P):: IF P< 20 THEN CA 
LL. DELSPRITE (#14) : : T = 0 ELSE 
750 

750 IF T=1 THEN CALL COINC(# 
13,#14,10,0:: IF C=-l THEN 
950 

760 IF T= 1 THEN TF=-TF : CA 
LL PATTERN(#14,126+TF) 

770 B=B+i :: IF B=7 THEN B=1 
:: BONUS=BONUS-100 :: DISPL 
AY AT(24,10)SIZE(5):BONUS :: 

IF BONUS=0 THEN 950 ELSE 68 
O 

780 GOTO 680 

790 Q=INT<RND*200)+1 :: CALL 

LOCATE (#1 1 , 1 , Q) : CALL LOCA 

TE(#15,14,Q):: CALL KEY(O,K, 
S) : : IF S< >Q THEN GOSUB 810 
800 RETURN 


810 IF K = 63 OR K=100 THEN 10 


820 IF K=83 OR K=115 THEN 10 


830 IF K = 69 OR K=101 THEN 11 


840 IF K=32 THEN 1340 

850 IF K=38 OR K=120 THEN 12 
60 

860 RETURN 

870 H=INT(RND*5+1) : : T=l :: 
IF H/2=INT (H/2)THEN 1=1 ELSE 
I = -l 

880 ON H GOTO 390,900,910,92 
0,930 


890 L D=20 
900 LD=67 
910 LD=83 
920 LD=134 
930 LD=154 


GOTO 940 
GOTO 940 
GOTO 940 
GOTO 940 


930 LD=154 :: GOTO 940 
940 CALL SPRITE(#14,128,11,L 
D,240,I,-12):: GOTO 740 
950 CALL MOTION(#13,O,0,#15, 
0,0):: IF T=1 THEN CALL MOTI 
ON(#14,O,O) 

960 KGALA=KOALA-1 :: DISPLAY 

AT(24,20)SIZE(2):KOALA :: C 
ALL CHAR(104,"OOOOOOOOOOOOOF 
180F00000F3F7FFFFF0000000000 
00FO13F00000F0FCFEFFFF"):: C 
ALL PATTERN(#13,104) 

970 CALL SOUND(750, 175, 1,349 
,1)*.: CALL SOUND (700,220, 1,4 
40,1):: CALL SOUND(300,208,1 
,415,1):: CALL SOUND(300,247 
,1,494,1) 

980 CALL SOUND(800, 175, 1,349 
,1):: CALL DELSPRITE(#13,#14 
,#15):: B=l :: xz=i :: X=168 
:: Y=l7 :: B0NUS=2500 :: L= 

l :: g= l :: E=i :: Display a 

T(24,10)SIZE(5):BONUS 

990 CALL CHAR(104,A3$):; IF 

K0ALA=0 THEN 1510 

lOOO CALL SPRITE(#13,104,16, 

X,Y):: GOTO 670 

1010 CALL MOTION(#13, 10, O) 

1020 CALL POSITION(#13, KO, KI 

):: IF KO >172 THEN 950 ELSE 

1020 


1030 PR=-PR 


CALL PATTERN( 


#13,106+PR):: G=G+l :: IF G= 
3 THEN G=1 

1040 IF G< >1 THEN 1060 





1050 IF L/2=INT(L/2)THEN F=i 
ELSE F=-l 

1060 x=x + f :: f=o :: y=y+8 : 

: DIR=1 :: IF Y>240 THEN 101 

0 

1070 CALL LOCATE<#13,X,Y) : : 
RETURN 

1080 PL=-PL :: CALL PATTERN< 
#13,98+PL):: G=G-1 :: IF G=0 
THEN G=2 

1090 IF G<>2 THEN 1110 
llOO IF L/2=INT<L/2)THEN F=- 
1 ELSE F=1 

liio x=x+f :: F=o :: y=y-8 : 

: DIR=-1 :: IF Y<=7 THEN 101 

0 

1120 CALL LOCATE<#13,X,Y) : : 
RETURN 

1130 NB=1 :: ON L GOTO 1210, 

1220,1230,1240,1250 
1140 IF YOLL THEN RETURN 
1150 CALL PATTERN(#13, 112) : : 

CALL MOTION(#13,-8,O) 

1160 CALL POSITION(#13,V,W): 

: IF V<—LT-12 THEN X = X-(LB-L 
T):: call motion<# 13,o,o):: 
CALL LOCATE(#13,X,Y):: CALL 
PATTERN(#13,96):: L=L+1 ELSE 
1180 

1170 IF L=6 THEN 1530 ELSE R 
ETURN 

1180 CALL COINC (#13,#15, 13, C 
) *. : IF C = -l THEN 950 
1190 IF T=1 THEN CALL COINC( 
#13,#14,10,0:: IF C=-l THEN 
950 

1200 GOTO 1160 

1210 LB =178 :: LL=129 :: LT= 
145 :: IF NB=1 THEN 1140 ELS 
E 1280 

1220 LB=137 :: LL=17 :: LT=1 
12 :: IF NB=1 THEN 1140 ELSE 
1280 

1230 L B =1O 2 :: LL=161 :: LT = 

80 :: IF NB=1 THEN 1140 ELSE 
1280 

1240 LB = 76 :: LL = 33 :: LT = 50 
:: IF NB=1 THEN 1140 ELSE 1 
280 

1250 LB = 37 :: LL = 177 :: LT =1 
6 :: IF NB=1 THEN 1140 ELSE 
1280 

1260 IF L=1 THEN RETURN 


1270 NB=0 :: ON L-l GOTO 121 

0,1220,1230,1240,1250 
1280 IF YOLL THEN RETURN 
1290 CALL PATTERN<#13, 112) : : 

CALL MOTION(#13,8,O) 

1300 CALL POSITION(#13,0,W): 
: IF V > = LB—16 THEN X=X+(LB-L 
T):: CALL MOTION(#13,O,O) : : 
CALL LOCATE(#13,X,Y):: CALL 
PATTERN(#13,104):: L=L-1 :: 
RETURN 

1310 CALL COINC (#13,#15, 13, C 
) : : IF C = -l THEN 950 
1320 IF T=1 THEN CALL COINC( 
#13,#14,12,C):: IF C=-1 THEN 
950 

1330 GOTO 1300 

1340 SP1=L*2-1 :: SP2=L*2 :: 

IF DIR=-1 THEN CALL PATTERN 
(#13,116)ELSE CALL PATTERN(# 
13,120) 

1350 CALL MOTION(#13,-8, O) 
1360 IF T=1 THEN CALL COINC( 
#13, #14, 12, C ) .* : IF C = - 1 THEN 
950 

1370 CALL COINC (#13, #15, 13, C 
>:: IF C=-1 THEN 950 
1380 CALL COINC(#13,#SP1,3, C 
O):: IF C0=-1 THEN 1420 
1390 CALL COINC(#13,#SP2,8, C 
01):: IF CÜI=-1 THEN 1420 
1400 CALL POSITION(#13,V,W) : 

: IF \/<=X-20 THEN 1460 
1410 GOTO 1360 

1420 IF C0=-1 THEN CALL DELS 

prite<#spi):: jr=score :: sc 

0RE=SC0RE+SP1*50 ELSE CALL D 
ELSPRITE(#SP2):: JR=SCORE :: 

SC0RE=SC0RE+SP2*50 
1430 CALL SOUND(200, 1100, 1) : 

: IF JR <1OOOO AND SC0RE>1000 
O THEN SCORE=SCORE-10000 :: 
TIM=TIM+iOOOO 

1440 IF HB=1 THEN RETURN ELS 
E HB = 0 

1450 DISPLAY AT(24,1)SIZE(5) 

:SCORE 

1460 CALL MOTION(#13,8,O) 
1470 IF T =1 THEN CALL COINC< 
#13,#14,12,C):: IF C=-1 THEN 
950 


1480 CALL COINC(#13,#15, 15, C 
) : : IF C = -1 THEN 950 




1490 CALL POSITION(#13,V,W): 

. IF v<X-3 THEN 1470 ELSE CA 
LL MOTION(#13,O,O):: CALL LO 
C A ~ E(#13,X,Y) 

1500 IF DIR=1 THEN CALL PATT 
ERN (#13, 104) *. : RETURN ELSE C 
ALL PATTERN(#13,96):: RETURN 
1510 CALL CLEAR :: CALL CHAR 

set :: xz=o :: call delsprit 

E(ALL):: PRINT "DU HAST"jSCO 
RE+TIM;"PUNKTE ERREICHT" :: 
PRINT " NOCH EIN SPIEL ?" 

1520 INP.UT ANS« : : IF ANS$=" 
J" OR ANS«="JA" OR ANS«="j" 

OR ANS«="ja" OR ANS«="Ja" TH 
EN CALL CLEAR I: GOTO 290 EL 
SE END 

15 30 CALL KEY ( O , K , S ) .* : IF K = 
68 THEN GOSUB 1030 ELSE 1530 
1540 CALL DISTANCE(#13,#12,D 
IST):: IF DI ST >500 THEN 1530 
1550 FOR Sl=l TO 27 :: READ 
D,E :: CALL SOUND(D,E,o»:: N 
EXT S1 

1560 DATA 150,294,150,330,15 
0,349,150,392,150,440,150,44 
0,300,440,150,523,150,466,15 
0,440.150,392 

1570 DATA 300,440,300,440,15 
0,466,150,392,150,392,150,39 
2,150,440,150,349,150,349,15 
O,349,150,440 

1580 DATA 150,392,150,349,15 
0,330,300,294,300,294 

1590 RESTORE 1560 :: XZ=1 : : 
Y=17 :: x=168 :: B0NUS=2500 

:: L=1 :: G=l :: E=l :: IF 

SP > 30 THEN 620 ELSE SP = SP + 2 
1600 GOTO 620 

1610 DISPLAY AT(6,10):"KRAZY 
KOALA" :: DISPLAY AT(9,3):" 
BY MARK & MATTHEW SMETANA" 
1620 DISPLAY AT(18,2):"BEARB 
EITET UND UEBERSETZT" :: DIS 
PLAY AT(21,1):"VOM TEAM DES 
AKTUELL VERLAGS" :: DISPLAY 
AT(24,8):"MUENCHEN, 1984" 
1630 FOR STH=1 TO 2000 :: NE 
XT STH :: CALL CLEAR :: INPU 
T "BENOETIGST DU SPIELREGELN 
2 ":ANS« :: IF ANS«="J" OR 
ANS«="JA" OR ANS«="j" OR ANS 
«=" ja." OR ANS«=" Ja" THEN 164 
O ELSE CALL CLEAR :: RETURN 


1640 CALL CLEAR :: CALL SCRE 
EN(2):: PRINT "MIT DEN PFEIL 
TASTEN FUEHRST DU DEN KOALA 
UEEER DEN BILD-SCHIRM NACH O 
BEN, UM SEIN...BABY VOR DEM 

MONSTER ZU.RETTEN." 

1650 PRINT " 'S 5 =LI NKS.' 

D’=RECHTS...*E’=LEITER AUF 1 
V’=LEITER AB" 

1660 PRINT "'SPACE 5 LAESST D 
EN KOALA.... SPRINGEN, UM EIN 
E FRUCHT(ZU-SATZPUNKTE) ZU F 
RESSEN ODER SICH VOR DEN VOE 
GELN, DIE...UEBER DEN BILDSC 
HIRM FLIEGEN" 

1670 PRINT "IN SICHERHEIT ZU 
BRINGEN." 

1680 PRINT "ACHTE AUF DIE FE 
LSBROCKEN!..VERSUCHE NACH OB 
EN ZU KOMMENBEVOR DER BONUS 
VERBRAUCHT..IST. DIE FELSEN 
FALLEN NACH JEDER RUNDE SCHN 
ELLER * " 

1690 PRINT ".' EL GLUECK 


.DRUE KE EINE 

BELIEBIGE.TASTE, UM ANZ 

UFANGEN." :: CALL SCREEN<4) 

1700 CALL KEY(0,K,S):: IF S< 
>0 THEN CALL CLEAR :: RETURN 
ELSE 1700 
1710 END 

Grundsätzlich müssen Sie unsere 
Programme genau so eintippen, wie 
sie abgedruckt sind. Wir haben zu 
diesem Zweck den Ausdruck auf 28 
Zeichen/Zeile = Bildschirmformat 
beschränkt, obwohl auch wir mit 
einem 80-Zeichen-Drucker klotzen 
könnten. Nur, ist es nicht besser, 
wenn unser Listing exakt Ihrem Bild¬ 
schirm entspricht? 

Der besseren Lesbarkeit halber sind 
die Listings 1 1/2-zeilig gedruckt, 
wobei die Zeilennummer jeweils her¬ 
vorgehoben ist. 

Die einzige wirkliche Besonderheit 
liegt in PRINT und DISPLAY Anwei¬ 
sungen. Hier haben wir, falls es zum 
Bildschirmaufbau notwendig ist, Leer¬ 
zeichen durch Punkte ersetzt, um 
Ihnen das Abtippen zu erleichtern. 
Hier gilt also: Überall dort, wo meh¬ 
rere Punkte stehen, die gleiche An¬ 
zahl Leerzeichen tippen. 

Das ist der ganze Zauber... 
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WARUM DENN ERST 
ZUM KIOSK GEHEN? 
NUTZEN SIE UNSEREN 
BEQUEMEN POSTSERVICE 



KOMMT REGELMÄSSIG 
ZU IHNEN INS HAUS 
FÜR NUR 25 MARK 


Sie haben dieses Heft am Kiosk 
gekauft Danke. Sie können es für 
Ihre Anlage nutzen. Prima. Sie 
wollen es auch weiterhin lesen. 
Phantastisch. Nutzen Sie unser 
Einführungsangebot! 

Für oanze 25 Mark senden wir 
Ihnen me nächsten sechs Ausgaben 

Ä em ins Haus! Sie sparen damit 
nur Geld, rund 5,- DM, nein! 
Sie erhalten dieses Heft sogar 
sechsmal kostenlos für den Gegen¬ 
wert einer einzigen Kleinanzeige! 

Denn das ist unser Service für 
alle, die diese Zeitschrift abonnie¬ 
ren: Jeder Abonnent hat das Recht, 
in jedem Heft eine Kleinanzeige bis 
zu 20 Zellen ä 30 Anschläge- das ist 
immerhin eine runde halbe Schreib¬ 
maschinenseite! - kostenlos zu 
veröffentlichen! Einzige Bedingung: 
Er muß seinem Anzeigenauftrag den 
Adressaufkieber seines Heftes bei¬ 
fügen! (Ohne ihn wird die Anzeige 
nicht veröffentlicht, Fotokopien 
werden nicht anerkannt) 

WICHTIGE RECHT¬ 
LICHE GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den Ver¬ 
lag widerrufen - Postkarte genügt 
Ansonsten läuft dieser Auftrag je¬ 
weils für sechs Ausgaben, wenn inm 
nicht vier Wochen vor Ablauf wider¬ 
sprochen wird, weiter. 





Coupon Bitte senden Sie mir bis auf 

Widerruf ab sofort die näch- 
Ja, ich möchte von Ihrem sten sechs Ausgaben an 
Angebot Gebrauch machen, untenstehende Anschrift. 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI AKTUELL 

Abo-Service 
Schellingstraße 33 

8000 MÜNCHEN 40 


Name_ 

Vorname_ 

Straße/Hausnr_ 

Plz/Ort_ 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort_ 

Kontonummer__ 

Bankleitzahl_ 

(steht auf jedem Kontoauszug) 

Unterschrift __ 
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Schlangen-Ei 

ein TI-Basic-Spiel von Pieter Coates 


Endlich ein fesselndes Geschicklichkeitsspiel, das auch auf dem 

Ihre*Aufgab^als Spieler ist es, Ihre Schlange durch das Spielfeld 
zu führen, ohne mit den Hinternissen oder dem Rand zu kolli¬ 
dieren. Dabei müssen Sie versuchen, mit Ihrer Schlange soviele 
Eier als möglich zu fressen, um Punkte zu erzielen. Obwohl das 
Spiel auf den ersten Blick einfach scheint, fordert es dem Spieler 
doch mehr Konzentration ab, als man es eigentlich bei einem 
TI-Basic-Spiel bisher erwartet hat. 





HINWEIS BEIM EINTIPPEN UNSERER 
PROGRAMMLISTINGS: 

Grundsätzlich müssen Sie unsere 
Programme genau so eintippen, wie 
sie abgedruckt sind. Wir haben zu 
diesem Zweck den Ausdruck auf 28 
Zeichen/Zeile = Bildschirmformat 
beschränkt, obwohl auch wir mit 
einem 80-Zeichen-Drucker klotzen 
könnten. Nur, ist es nicht besser, 
wenn unser Listing exakt Ihrem Bild¬ 
schirm entspricht? 

Der besseren Lesbarkeit halber sind 
die Listings 1 1/2-zeilig gedruckt, 
wobei die Zeilennummer jeweils her¬ 
vor ge hoben ist. 

Die einzige wirkliche Besonderheit 
liegt in PRINT und DISPLAY Anwei¬ 
sungen. Hier haben wir, falls es zum 
Bildschirmaufbau notwendig ist, Leer¬ 
zeichen durch Punkte ersetzt, um 
Ihnen das Abtippen zu erleichtern. 

Hier gilt also: Überall dort, wo meh¬ 
rere Punkte stehen, die gleiche An¬ 
zahl Leerzeichen tippen. 

Das ist der ganze Zauber... 

Übrigens, wenn Ihnen das Tippen zu 
lästig ist, schauen Sie doch mal auf 
der Seite mit unserem Kassetten¬ 
service nach. Dort finden Sie ein 

tolles Supersoftware-Sonderangebot. 
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lOO 

REN 

******************** 

110 

REM 

* 

Schlangen Ei 

* 

120 

REM 

* 

by P.Coates § 

* 

130 

REM 

* 

Bearbeitet vom 

* 

140 

REM 

* 

Team des 

* 

150 

REM 

* 

Aktuell Verlages 

* 

160 

REM 

* 

Muenchen 

* 

170 

REM 

* 


* 

180 

REM 

*Benoetigte Geraete* 

190 

REM 

* 

TI 99/4A Konsole 

* 

200 

REM 

* 

emp-f. Joysticks 

* 

2 10 

REM 

* 

Kassettenrekorder* 

220 

REM 

* 


* 

230 

REM 

* 

SPEICHERBELEGUNG 

* 

240 

REM 

* 

5614 BYTES 

* 

250 

REM 

* 


* 

260 

REM 

******************** 

270 

CALL 

CLEAR 


280 

CALL 

SCREEN(7) 


290 

W$ = 

" FFFF18181818FFFF" 


300 

Z$ = 

"FFFFFFFFFFFFFFFF" 


310 

LL$ 

= 11 

003C76EFEF76oC" 


320 

SC$ 

__ II 

3C66E7FFFFE7663C" 


330 

CALL 

CHAR(104,LL$) 


340 

CALL 

COLOR(1,16,7) 


350 

CALL 

CHAR(35,W«) 


360 

CALL 

CHAR <94, "3C4299A5A1 


AD5E3C") 

370 CALL CHAR(34,Z$) 

380 CALL CHAR(97,SC$) 

390 CALL HCHARIl,1,35,32) 

400 CALL HCHAR(24,1,35,32) 
410 CALL COLOR(9, 11,7) 

420 CALL COLOR(10,4,7) 

430 CALL VCHAR<2,1,34,22) 

440 CALL VC HAR(2,32,34,22) 
450 N=4 

460 TX$="ä SCHLANGEN EI ü" 
470 GOSUB 690 

480 CALL SOUND(100,880,6) 

490 TX$="BY" 

500 GOSUB 690 

510 CALL SOUND(100,880,5) 

520 TX$=" P.COATES 

530 GOSUB 690 

540 CALL SOUND(100,880,5) 

550 TX$=" 

560 GOSUB 690 

570 CALL SOUND(100,880,5 ) 
580 DATA 97,104,104,104,104, 
104,104,104,104,104,104,104, 
104,104,104,104 
590 AA=9 

600 FOR B=1 TO 16 
610 READ SH 



620 CALL HCHAR(17,AA,SH) 



1040 FOR 1=2 TO 9 

630 AA = AA +1 



1050 CALL COLOR(1,2,9) 

640 S=INT(RND*500)+110 



1060 NEXT I 

650 CALL SOUND(100,S,2,S*2 ,3 



1070 CALL COLOR(9, 10, 1 ) 

) 



1080 CALL COLOR(11, 14, 1 ) 

660 NEXT B 



1090 CALL COLOR(12, 16, 1 ) 

670 CALL SOUND(100,990,3) 



1100 CALL COLOR(13,5, 1 ) 

680 GOTO 780 



1110 CALL COLOR(14,9, 1 ) 

690 REN TXT 



1120 CALL CHAR(96,"3C7EFF999 

700 CALL SOUND(100,3300,0) 



9FF7E3C") 

710 C=INT(16-LEN(TX$)/2) 



1130 CALL CHAR(97,SC$) 

720 N=N+2 



1140 CALL CHAR(112,"OS3FFE66 

730 FOR 1=1 TO LEN(TX^) 



C2CF7F34") 

740 CALL HCHAR(N,C+I,34) 



1150 CALL CHAR(120,"3C7EFFFF 

750 CALL HCHAR(N,C+I,ASC(SEG 



FFFF7E3C") 

(TX$,1,1))) 



1160 CALL CHAR(129,"183C7E66 

760 NEXT I 



5A7E3C18") 

770 RETURN 



1170 CALL CHAR(132,"003C6EF7 

780 CALL CLEAR 



F76E3C") 

790 CALL C OLOR(1,2,2) 



1180 CALL CHAR(131,"183C7E5A 

800 CALL SCREEN(2 ) 



667E3C18") 

810 RANDOMIZE 



1190 CALL CHAR(128,LL$) 

820 PRINT "GUTEN TAG:": : 



1200 CALL CHAR(136,"FFFFFFE7 

830 PRINT :"DU BIST EINE SCH 



E7FFFFFF") 

LANGE": :"UND HAST HUNGER AU 



1210 OPTION BASE 1 

F EINIGE" 



1220 DIM P(105,2) 

840 PRINT :"EIER.DIESE FINDE 



1230 CALL HCHAR(1,2,136,29) 

ST DU IN": :"LABYRINTH.JEDOC 



1240 CALL HCHAR(23,2,136,29) 

H VORSICHT!i" 



1250 CALL VCHAR(1,2,136,23) 

850 PRINT :"DU DARFST DIE SC 



1260 CALL VCHAR(1,30,136,23) 

HARFEN": :"ECKEN NICHT BERUE 



1270 FOR 1=3 TO 21 STEP 2 

HREN.": :"VIEL GLUECK!" 



1280 FOR J = 4 TO 28 STEP 2 

860 PRINT :"-IRGEND EINE TAS 



1290 CALL VCHAR(I,J,112) 

TE DRUECKEN-" 



1300 NEXT J 

870 FOR 1=1 TO 8 



1310 NEXT I 

880 CALL COLOR(I, 16, 1 ) 



1320 Q=1 

890 NEXT I 



1330 X1 = 1 6 

900 CALL KEY(0,K,S) 



1340 Y 1 =21 

910 IF S=0 THEN 900 



1350 M1=0 

920 CALL CLEAR 



1360 N1=- 1 

930 FOR 1=1 TO 8 



1370 FL=0 

940 REM 



1380 L=0 

950 CALL COLOR(1,1,1) 



1390 SC=0 

960 NEXT I 



1400 CALL HCHAR(1,2,136,29) 

970 PRINT :"...WILLST DU:... 



1410 A35=" punkte: 0" 

: ".1 . TASTEN (X, S, E, 



1420 J=10 

D)": .2. Joystick’ S": : 



1430 GOSUB 2590 

: : : 



1440 FOR 1=6 TO 10 STEP 4 

980 FOR 1=1 TO 8 



1450 FOR J = 7 TO 25 

990 CALL COLOR(I,16,1) 



1460 CALL SOUND(1,2000,0) 

lOOO NEXT I 



1470 CALL VCHAR(I,J,132) 

1010 CALL KEY(0,01,02) 



1480 L = L + 1 

1020 IF (0i<49)+(01>50)THEN 



1490 P (L, 1 ) =1 

1010 



1500 P ( L , 2 ) = J 

1030 CALL CLEAR 



1510 NEXT J 






1520 CALL SOUND(1,2000,0) 

1530 CALL VCHAR<1+1,J-l,131) 

1540 L=L +1 

1550 P(L,1)=1+1 

1560 P(L,2)=J-1 

1570 FOR J=25 TO 7 STEP -1 

1580 CALL SOUND<1,2000,O) 

1590 CALL VCHAR(1+2,J,128) 

1600 L = L +1 

1610 P(L,1)=1+2 

1620 PCL,2)=J 

1630 NEXT J 

1640 CALL SOUND(1,2000,O) 

1650 CALL VCHAR(1+3,J+l,131) 

1660 L=L+1 

1670 P(L,1)=1+3 

1680 P ( L , 2 ) = J + 1 

1690 NEXT I 

1700 FOR J=7 TO 25 

1710 CALL SOUND(1,2000,O) 

1720 CALL VCHAR(14,J,132) 

1730 L=L+i 

1740 P(L,1)=14 

1750 P ( L , 2 ) = J 

1760 NEXT J 

1770 CALL SOUND(1,2000,O) 

1780 CALL VCHAR(15,25,131) 

1790 L = L +1 

1800 PCL,1)=15 

1810 P(L,2)=25 

1820 FOR J =25 TO 21 STEP -1 

1830 CALL SOUNDC1,2000,O) 

1840 CALL VCHAR(16,J,128) 

1850 L = L +1 

1860 P(L,1)=16 

1870 P ( L , 2 ) = J 

1880 NEXT J 

1890 RX=INT(RND*22) +2 

1900 RY=INT<RND*27)+3 

1910 CALL GCHAR(RX,RY,C) 

1920 IF C< >32 THEN 1950 

1930 CALL VCHAR(RX,RY,120) 

1940 FL=1 

1950 IF 01=50 THEN 2130 
1960 CALL KEY <1,S,T) 

1970 IF S< >5 THEN 2010 

1980 M 1 = - 1 

1990 N1 =0 

2000 GOTO 2170 

2010 IF S<>3 THEN 2050 

2020 M1=0 

2030 N1 = 1 

2040 GOTO 2170 

2050 IF S +1< >1 THEN 2090 

2060 M1 = 1 


2070 N1=0 

2080 GOTO 2170 

2090 IF S< >2 THEN 2170 

2100 M1=0 

2110 N1 = - 1 

2120 GOTO 2170 

2130 CALL JOYST C1,A,B) 

2140 IF ABS(A)+ABS(B)<>4 THE 
N 2170 

2150 M 1 = -B / 4 
2160 N 1 = A / 4 

2170 CALL GCHAR(Ml+Xl,Nl+Yl , 
C) 

2180 IF C=32 THEN 2440 
2190 IF C< >120 THEN 2320 
2200 CALL SOUNDC100,-7, O) 
2210 CALL SOUND(100,-8,3) 
2220 CALL SOUND(100 , -8,5 ) 
2230 FOR T = 1 TO 300 
2240 NEXT T 

2250 CALL SOUND(200 , -6,2 ) 
2260 SC=SC+1 
2270 A*=STR*(SC) 

2280 J = 1 6 

2290 GOSUB 2590 

2300 FL=0 

2310 GOTO 2440 

2320 CALL SOUND(-500,-7 , O) 

2330 CALL SCREEN(12) 

2340 CALL SCREEN(2) 

2350 CALL KEY(0,S1,S2) 

2360 IF S2<1 THEN 2350 
2370 FOR 1=2 TO 22 STEP 2 
2380 CALL HCHAR(I,3,32,27) 
2390 NEXT I 

2400 FOR 1=3 TO 29 STEP 2 
2410 CALL VCHAR(2,1,32,21) 

2420 NEXT I 

2430 GOTO 1320 

2440 CALL VCHAR(X1,Y1,128+2* 

(NI+1)+N1) 

2450 X1=X1+M1 
2460 Y1=Y1+Ni 

2470 CALL SOUND(-1,2000,O) 
2480 IF Mi=0 THEN 2510 
2490 CALL VCHAR(X1,Y1,96) 
2500 GOTO 2520 
2510 CALL VCHAR(XI,Y1,97) 
2520 CALL VCHAR(P(Q,1),P(Q,2 
) ,32) 

2530 P(Q,1)=X1 
2540 P(Q,2)=Y1 
-2550 Q = Q + 1 

2560 IF Q< >106 THEN 2580 
2570 Q= 1 
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2580 IF FL=0 THEN 1890 ELSE 
1950 

2590 FOR 1=1 TO LEN<A*) 

2600 CALL VCHAR(1,I+J,ASC(SE 
G*(A$,1,1))) 

2610 NEXT I 
2620 RETURN 

HINWEIS BEIM EINTIPPEN UNSERER 
PROGRAMMLISTINGS: 

Grundsätzlich müssen Sie unsere 
Programme genau so eintippen, wie 
sie abgedruckt sind. Wir haben zu 
diesem Zweck den Ausdruck auf 28 
Zeichen/Zeile = Bildschirmformat 
beschränkt, obwohl auch wir mit 
einem 80-Zeichen-Drucker klotzen 
könnten. Nur, ist es nicht besser, 
wenn unser Listing exakt Ihrem Bild¬ 
schirm entspricht? 

Der besseren Lesbarkeit halber sind 
die Listings 1 1/2-zeilig gedruckt, 
wobei die Zeilennummer jeweils her¬ 
vor ge hoben ist. 

Die einzige wirkliche Besonderheit 
liegt in PRINT und DISPLAY Anwei¬ 
sungen. Hier haben wir, falls es zum 
Bildschirmaufbau notwendig ist, Leer¬ 
zeichen durch Punkte ersetzt, um 
Ihnen das Abtippen zu erleichtern. 
Hier gilt also: Überall dort, wo meh¬ 
rere Punkte stehen, die gleiche An¬ 
zahl Leerzeichen tippen. 

Das ist der ganze Zauber... 

Übrigens, wenn Ihnen das Tippen zu 
lästig ist, schauen Sie doch mal auf 
der Seite mit unserem Kassetten¬ 
service nach. Dort finden Sie ein 
tolles Supersoftware-Sonderangebot. 


Car-Race 

Car-Race ist die vereinfachte Form des Night-Drivers. Sie sitzen 
im Cockpit eines Formel-I-Boliden und steuern Ihren Wagen 
durch das Dunkel der Nacht. Die Straßenbegrenzung reflektiert 
das Licht Ihrer Scheinwerfer. So können Sie den genauen Stra¬ 
ßenverlauf erkennen. 

Sie steuern den Wagen mit den folgenden Tasten: 

,SPACE‘. Gaspedal 

,B‘. Bremse 

,<‘. Links 

,>‘. Rechts 

Falls die Geschwindigkeit größer als 300 km/h wird oder wenn 
Sie in einer Kurve vergessen zu lenken, wird die Fahrt unterbro¬ 
chen und muß am Unfallort neu begonnen werden. 

Am Spielende gibt Ihnen die Fahrzeit und die durchschnittliche 
Geschwindigkeit über Ihre Qualitäten als Night-Driver Aufschluß. 


lOO 

REM 

******************** 

110 

REM 

* 

CAR-RACE * 

120 

REM 

* 

von Andreas HOLY * 

130 

REM 

* 

* 

140 

REM 

* 

Bearbeitet vom * 

150 

REM 

* 

T e am des * 

160 

REM 

* 

Aktuell Verlages * 

170 

REM 

* 

Muenchen * 

180 

REM 

* 

* 

190 

REM 

*Benoetigte Geraete* 

200 

REM 

* 

TI 99 4/A Konsole* 

210 

REM 

* 

* 

220 

REM 

* 

Speicherbelegung:* 

230 

REM 

* 

5429 Bytes * 

240 

REM 

******************** 

250 

CALL 

SCREEN(2) 

260 

CALL 

DLEAR 

270 

PRINT 

".oooo . . ooo 

oooo": " 

• • 

■ 

■ 

• 

■ 

Ü 

■ 

■ 

■ 

• 

• 

0 

• 

■ 

■ 

0 

• 

0 

■ 

. . o" 

• II 

• • 

■ 

■ 

■ 

0 

■ 

0 

• 

• 

• 

0 

• 

■ 

• 

• 

• 

0 

■ 

• 

O": " 

.... 

. . 


280 

PRINT 

". oooo . o. . . o 

. o. . 

. o " : 

: 

: 

290 

PRINT 

"...oooo...ooo...o 

ooo . 

ooooo' 

0 

0 

Ü 

0 

0 

. . . . 

. o" : 

i« 

0 

□ 

0 

0 

..ooo" 



300 

PRINT 

"...OOOO..00000.0. 

.... 

o " : " 

. . 

.O... 0 . 0 ...o..oooo 


. ooooo 


310 

FOR I 

= 1 TO 5 

320 

CALL 

SOUND(250,880,0) 

330 

CALL 

COLOR(10,9,1) 

340 

CALL 

SOUND(200,880,30) 

350 

CALL 

COLOR(10,1,1) 

360 

NEXT 

I 

370 

CALL 

CLEAR 

380 

CALL 

COLOR(10,2,1) 

390 

PRINT 

"Sie sind der Fahr 

er eines" 

: "Sportwagens in Mo 

ntreal": 

: 

400 

PRINT 

"Sie steuern Ihren 


Wäger, mit ’ < ’ , ’>’ , ’spac 


e’ und ’B’ 

Links,Rechts,Gas 

u r d 

Bremse 

II ■ • » • 

4 10 

PRINT 

TAB(8);"Achtung !" 

420 

PRINT 

TAB(8)J"=========" 

430 

PRINT 

"Wenn Sie schnelle 


r als":"300 KM/H fahren, zer 
stoeren Sie Ihren Motor !": 

440 FOR GROUP=1 TO 12 
450 CALL COLOR(GROUP,12,1) 
460 NEXT GROUP 
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470 

CALL KEY(0,KEY,STATUS) 



940 IF K< =A+1 THEN 960 

480 

1F STATUS=0 THEN 470 



950 GOSUB 1730 

490 

CALL CLEAR 



960 IF KEY< >46 THEN 1040 

500 

CALL COLOR(1,16,1) 



970 K=K +■ 1 

510 

REM ERSTE LEITPLANKE 



980 IF G< = 150 THEN 1000 

520 

CALL CHAR(33,"3C24243C3C 



990 G=G-5 

3C3C3C") 



lOOO IF K >=A-1 THEN 1020 

530 

REM ZWEITE LEITPLANKE 



1010 GOSUB 1730 

540 

CALL CHAR(34,"0000181818 



1020 IF K< =A+1 THEN 1040 

18" > 




1030 GOSUB 1730 

550 

REM DRITTE LEITPLANKE 



1040 IF KEY<>32 THEN 1100 

560 

CALL CHAR(35,"0000001818 



1050 G=G+25 

” ) 




1060 IF K >=A~1 THEN 1080 

570 

REM VIERTE LEITPLANKE 



1070 GOSUB 1730 

580 

CALL CHAR(36,"000001") 



1080 IF K< =A+1 THEN 1100 

590 

REM FUENFTE LEITPLANKE 



1090 GOSUB 1730 





1100 IF KEY< >66 THEN 1120 

600 

CALL CHAR(37,"FFFFC3C3C3 



1110 G=.75*G 

FFFFFF M ) 



1120 G* = STR$(INT(G) ) 

610 

CALL CHAR(38,"FFFFFFFFFF 



1130 CALL HCHAR(1,28,32,4) 

FFFFFF - ) 



1140 FOR LTR=1 TO LEN(G$) 

620 

G=1 



1150 CALL HCHAR(1,28+LTR,ASC 

630 

L = i 1 



(SEGS> lG$, LTR, 1 ) ) ) 

640 

T = 0 



1160 NEXT LTR 

650 

Z=0 



1170 T = T + T 1 

660 

GOSUE 1240 



1180 GOTO 680 

670 

GOSUE 1680 



1190 DATA 3,3,3,3,3,3,3,o,3, 

680 

READ A 



3,3,3,3,3,4,5,5,5,4,3,2,1, 1, 

690 

CALL SOUND T— 4000,-7,15,1 



1 , 1,2,3,3,3,3,3,3 

1 0 +ABS(G/5) , 10) 



1200 DATA 4,5,5,4,3,3,3,3,3, 

700 

K = 3 



3,3,2,I,1,2,3,4,5,5,4,3,3,3, 

710 

IF G >0 THEN 730 



3,3,3,2, 1,1,2,3,4,5, 5,4,3,3 

720 

G= 1 



1210 DATA 4,5,5,5,5,4,3,3,3, 

730 

IF G< =250 THEN 750 



3,3,4,5,4,3,2, 1,2,3,3,4,5,4, 

740 

CALL COLOR(12,9,1) 



3,3,3,3,3,2, 1,2,3,4,5,5,4 

750 

IF G > = 277 THEN 770 



1220 DATA 3,o,o,3,3,3,3,3,4, 

760 

CALL COLOR(12,15,1) 



5,4,3,2, 1,1,2,3,3,3,4,4,5,4, 

770 

IF G< =305 THEN 790 



4,3,3,3,3,3,3,3,3,3,o,3 

780 

GOSUB 1730 



1230 DATA 4,5,5,5,5,5,5,5,4, 

790 

T1=L/<10*G/36) 



3,3,3,3,3,3,3,2,3, 4,3,3,3,3, 

800 

IF A=0 THEN 1820 



3,2,1 1,2,3,3,4,5,5,4,3,3,3, 

810 

FOR 1=0 TO 300 STEP G 



3,0 

820 

NEXT I 



1240 REM *** GERADE *** 

830 

ON A GOSUB 1590,1430,124 



1250 CALL HCHAR(7,10,32,12) 

0,1360,1500 



1260 CALL HCHAR(7,15,36,2) 

840 

CALL KEY(0,KEY,STATUS) 



1270 CALL HCHAR(8, 11,32, 10) 

850 

IF STATUSOO THEN 880 



1280 CALL HCHAR(8,14,35) 

860 

G=G-2.5 



1290 CALL HCHAR(8, 17,35) 

870 

GOTO 920 



1300 CALL HCHAR(10,12,32,8) 

880 

IF KEY044 THEN 960 



1310 CALL HCHAR(10,12,34) 

890 

K = K- 1 



1320 CALL HCHAR(10,IR,34) 

900 

IF G < =150 THEN 910 



1330 CALL HCHAR(12, 10,33) 

910 

G = G - 5 



1340 CALL HCHAR(12,21,33) 

920 

IF K > = A-1 THEN 940 



1350 RETURN 

930 

GOSUB 1730 



1360 REM *** HALBRECHTS *** 
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1370 

CALL 

HCHAR(7,10,32,12) 

1380 

CALL 

HCHAR(7,18,36,2) 

1390 

CALL 

HCHAR(8,11,32,12) 

1400 

CALL 

HCHAR(8,15,35) 

1410 

CALL 

HCHAR(8,18,35) 

1420 

RETURN 

1430 

REM *** HALBLINKS *** 

1440 

CALL 

HCHAR(7,10,32,12) 

1450 

CALL 

HCHAR(7,12,36,2) 

1460 

CALL 

HCHAR(8,11,32,12) 

1470 

CALL 

HCHAR(8,13,35) 

1480 

CALL 

HCHAR(3,16,35) 

1490 

RETURN 

1500 

REM 

-X-** RECHTS *** 

1510 

CALL 

HCHAR(7,10,32,12) 

1520 

CALL 

HCHAR(7,20,36,2) 

1 530 

CALL 

HCHAR(8,11,32,12) 

1540 

CALL 

HCHAR(3,16,35) 

1550 

CALL 

HCHAR(8,19,35) 

1560 

CALL 

HCHAR(10,12,32) 

1570 

CALL 

HCHAR(10,13,34) 

1580 

RETURN 

1590 

REM 

*•** LINKS *** 

1600 

CALL 

HCHAR(7,10,32,12) 

1610 

CALL 

HCHAR(7,10,36,2) 

1620 

CALL 

HCHAR(3.11,32,12) 

1630 

CALL 

HCHAR(8,12,35) 

1 640 

CALL 

HCHAR(8,15,35) 

1650 

CALL 

HCHAR(10,19,32) 

1660 

CALL 

HCHAR(10,13,34) 

1670 

RETURN 

1680 

CALL 

HCHAR(15,8,37) 

1 690 

CALL 

HCHAR(16,3,38) 

1700 

CALL 

HCHAR(15,23,37) 

1710 

CALL 

HCHAR(16,23,38) 

1720 

RETURN 

1730 

FOR 

S=0 TO 30 

1740 

CALL 

SOUND(-500,-6,30-S 

, 170- 

2*S,30-S) 

1750 

NEXT 

3 

1760 

FOR : 

S=0 TO 30 

1770 

CALL 

SOUND(-500,-5,S) 

1780 

NEXT 

S 

1790 

G= 1 


1800 

Z = Z+ 1 


1810 RETURN 
1820 S$="FINISH" 

1830 FOR LTR=1 TO LEN<S*) 
1840 CALL HCHAP(17,12+LTR,AS 
C (SEG$(S$,LTR , 1 ) ) ) 

1850 NEXT LTR 

1860 CALL SOUND(100,880,5) 

1870 D=INT( (4410/T)*3.6) 

1880 T A=INT(T/60) 


1890 TI=TA+INT(((T/60)-TA)*6 
O )/100 

1900 CALL COLOR(12,12,1) 

1910 PRINT "ZEIT : ";STR*(TI 
) 5 

1920 PRINT "SCHNITTGESCHWIND 

igkeit: ";str$(D>; 

1930 PRINT "FAHRT ";STR*(Z); 
" x UNTERBROCHEN" 


1940 

CALL 

KEY(0,KEY,STATUS) 

1950 

IF ST ATUS = 0 THEN 1940 

1960 

IF KEY=32 THEN 1970 ELS 

E 2000 


1970 

RESTORE 

1980 

CALL 

CLEAR 

1990 

GOTO 

620 

2000 

CALL 

CLEAR 

20 10 

END 



HINWEIS BEIM EINTIPPEN UNSERER 
PROGRAMMLISTINGS: 

Grundsätzlich müssen Sie unsere 
Programme genau so eintippen, wie 
sie abgedruckt sind. Wir haben zu 
diesem Zweck den Ausdruck auf 28 
Zeichen/Zeile = Bildschirmformat 
beschränkt, obwohl auch wir mit 
einem 80-Zeichen-Drucker klotzen 
könnten. Nur, ist es nicht besser, 
wenn unser Listing exakt Ihrem Bild¬ 
schirm entspricht? 

Der besseren ^Lesbarkeit halber sind 
die Listings 1 1/2-zeilig gedruckt, 
wobei die Zeilennummer jeweils her¬ 
vor ge hoben ist. 

Die einzige wirkliche Besonderheit 
liegt in PRINT und DISPLAY Anwei¬ 
sungen. Hier haben wir, falls es zum 
Bildschirmaufbau notwendig ist, Leer¬ 
zeichen durch Punkte ersetzt, um 
Ihnen das Abtippen zu erleichtern. 
Hier gilt also: Überall dort, wo meh¬ 
rere Punkte stehen, die gleiche An¬ 
zahl Leerzeichen tippen. 

Das ist der ganze Zauber... 

Übrigens, wenn Ihnen das Tippen zu 
lästig ist, schauen Sie doch mal auf 
der Seite mit unserem Kassetten¬ 
service nach. Dort finden Sie ein 
tolles Supersoftware-Sonderangebot. 
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SOFTWARE TESTS 


Multi¬ 

plan 

Wenn wir uns diesmal das Multiplan-Modul näher ansehen, 
dann genügt es keineswegs nur TI99/4A-spezifische Besonder¬ 
heiten und Ausprägungen dieses Softwarepakets zu beschreiben 
und zu erklären. Bei einer Standardsoftware dieser Art muß 
man doch etwas weiter ausholen, um nicht ein zu vereinfach¬ 
tes, und damit unvollständiges Bild zu schaffen. 

Was heißt eigentlich Standardsoftware? 

Von allen möglichen Definitionen, die in diversen Lexika zu 
finden sind, scheint mir doch jene Auffassung am leichtesten 
verständlich, wonach man dann von Standardsoftware spricht, 
wenn allgemein zu bewältigende Arbeiten, Entscheidungen 
oder Prozesse von gleichartigen (standardisierten) computer¬ 
gesteuerten Methoden (Vorgängen) unterstützt oder sogar er¬ 
setzt werden. Am bekanntesten sind wohl eindeutig die ver¬ 
schiedenen Textverarbeitungen (wie z.B. Wordstar oder Tl- 
Writer). Doch nicht weniger wichtig - wenn auch nur in der 
geschäftlichen Anwendung weit verbreitet - sind die vielen 
Datenanalyseprogramme zur Planung und Entscheidungshilfe 
für zahllose Problemkreise in jedem Betrieb. Sei es Kostenrech¬ 
nung oder Budgetierung, Inventur oder Break-Even-Analyse, 
überall hat man das Problem, enorme Datenmengen zu ver¬ 
arbeiten, auszuwerten und eventuelle Veränderungen recht¬ 
zeitig zu erkennen. Innerhalb dieser Gruppe hat sich in den 
letzten 10 Jahren eine Art riesige Matrix als Darstellungsform 
sehr bewährt. Dazu gehört unser Multiplan (aber auch andere 
bekannte Standardsoftwarepakete wie Visicalc u.v.m.). Ein 
großer Vorteil liegt dabei im Modellcharakter derartiger „Pro¬ 
grammsysteme“. Mögliche Veränderungen lassen sich bei ge¬ 
gebener mathematischer oder logischer Beziehung simulieren, 
und damit sichtbar machen. Doch davon später. 

Wir haben es also mit einem elektronischen Arbeitsblatt zu 
tun auf dem jede noch so komplexe Kalkulation, Berechnung 
oder schematische Zahlenkette eingetragen werden kann. Nun 
gibt es Befehle mit denen man Beziehungen zwischen einzel¬ 
nen Zellen (= Einheiten) auf dem Blatt hersteilen kann. Ver¬ 
schiedene Kosten werden zum Beispiel addiert, und von der 
Summe wird der Mehrwertsteuersatz berechnet. Nehmen wir 
dies als Ausgangspunkt an. Alle Kosten zusammen führen 
immer zu einer bestimmten Summe bzw. MwSt. Verändere 
ich nun in unserem Modell einen Kostenbetrag, dann rechnet 
Multiplan automatisch - nach unserer Definition von vorher - 
die neue Endsumme und den neuen Steuersatz aus. Das Modell 
bildet also die Platzhalter für die Kosten und eine frei wähl¬ 
bare Formel (z.B.: Summe). Nun kann der Anwender die 
Werte variieren, und erhält immer das verlangte Ergebnis. 
Bereits dieses kleine Beispiel zeigt die riesigen Vorteile solcher 
Modelle. Stellen wir uns ein kompliziertes Ablaufschema 
eines Industriebetriebes vor, bei dem am Ende der erwartete 
Ertrag steht. Hypothetisch kann man nun bestimmte Faktoren 
ändern, und die Auswirkungen beim Ergebnis ablesen. Selbst 
sehr komplexe Beziehungen werden damit transparent. 

Soweit der kurze Ausflug in die Theorie derartiger Planungs¬ 
programme. 

Das Multiplan Modul selbst stammt nicht von Texas Instru¬ 
ments, sondern wie branchenüblich bei vielen Softwarepake¬ 
ten von einer Drittfirma, die ihr Programm für die unterschied¬ 
lichsten Computer kompatibel macht. Im besonderen Fall ist 
es die Firma Microsoft, die Multiplan mit geschützter Bezeich¬ 
nung vertreibt. 

Das Paket beinhaltet wie der Tl-Writer ein Modul, eine Dis¬ 
kette mit dem Betriebsprogramm, ein Handbuch in englischer 
Sprache, sowie eine Einschubleiste für die geänderten FCTN- 
und CTRL-Befehle und eine blaßorange Quick Reference 


Card. Die Mindestkonfiguration zum Betrieb von Multiplan 
ist somit: Konsole + RAM Exp. + mind. ein Diskettenlauf¬ 
werk (besser sind aber zwei) (... + Schnittstelle und Drucker, 
die zwar nicht notwendig aber unersetzbar sind!). 

Nachdem sich der vorsichtige User von der Diskette eine Back- 
upcopy gemacht hat, startet man das System am besten nach 
der,Trial & Error‘-Methode und schaut sich dieses elektroni¬ 
sche Arbeitsblatt einmal an. 

Der erste Eindruck ist verwirrend, zumal der altgewohnte Cur¬ 
sor zu einem Rechteck mutiert. Oben am Bildschirm stehen in 
weißer Schrift auf blauem Grund die Spaltennummern 1,2,3,4... 
und links am Rand die Zeilen. „Aha“, und sogleich denkt man 
an eine Matrix. Von dieser Matrix sieht man natürlich nur einen 
Ausschnitt (Fenster), doch wenn man mit den Pfeiltasten den 
„Cinemascope-Cursor“ nach rechts bewegt dann läuft der 
Spaltenindex mit. Man kann sich also innerhalb dieses Feldes 
frei bewegen. Doch noch ist fast der ganze Bildschirm leer! 

Nur ganz unten stehen fünf unbewegliche Zeilen, die mit 
COMMAND betitelt sind. Wie beim Tl-Writer oben, so sind hier 
unten die möglichen Befehle angeführt. Sie werden ganz ein¬ 
fach dadurch eingeleitet, indem man den ersten Bucnstaben 
drückt, oder ENTER bei dem jeweiligen Befehlswort auf dem 
der zweite Cursor sitzt. Diesen Cursor bewegt man mit der 
SPACE-Taste. 

Es sei gesagt, daß jeder der in Extended Basic bewandert ist 
ohne Anleitung diese ersten Eindrücke erwerben kann. Als Rat 
kann man dem interessierten Anfänger immer wieder nur sagen, 
keine falsche Scheu vor unbekannten Menüs neuer Programme 
zu haben. 

Und schon liest man den Befehl HELP, der auch gleich ausge¬ 
löst wird. Derartige programminterne Anleitungen bei Fehlern 
oder Problemen sind bei großen Computern immer vorhanden, 
leider aber Home-Computer-Besitzern weitgehend unbekannt. 

Die Diskette schnurrt, und prompt werden ganze Absätze von 
erklärenden Worten auf dem Bildschirm sichtbar. Es handelt 
sich um eine Art Bibliothek auf Diskette, der für jeden Befehl 
eine steckbriefartige Kurzerklärung entnommen werden kann. 
ALPHA heißt also der Befehl für das Beschreiben der Matrix 
mit Worten, und VALUE bewirkt das Analoge für Zahlen. Wer 
aufmerksam ist, der merkt weiters das links unten in R/C 
(Reihe/Spalte)-Schreibweise die jeweilige Cursorposition auf 
der Matrix angezeigt wird. Rechts unten schließlich sieht man 
in Prozent den jeweiligen noch freien Speicherplatz auf der 
Matrix. Bevor wir nun ein kleines Modell erstellen, möchte ich 
kurz auf die anderen Befehle und die Formeln eingehen. 

BLANK: Dieser Befehl löscht die Zelle (Position) auf der der 
Cursor gerade ruht. 

COPY: Damit lassen sich Wörter, Zahlen oder Formeln von 
einer Zelle (Englisch: Cell) auf andere übertragen. (z.B. Linien 
für Tabellen...etc.) 

DEL: Löscht wie BLANK, aber kürzt dabei Zeilen oder Spalten 
heraus. 

EDIT: Erlaubt das Einsetzen einer Formel (Beziehung) begin¬ 
nend ab Position des Cursors. Z.B.: Will man drei Werte (Kosten) 
addieren, dann tippt man ,,SUM(“ ein, rückt danach den Cursor 
zum ersten Wert, tippt einen Doppelpunkt, und bewegt nun den 
Cursor zum Ende der Kolonne, von der man die Summe bilden 
möchte. Das Drücken der ENTER-Taste bewirkt nun, daß der 
Computer fiir alle Werte zwischen Anfangs- und Endpunkt 
immer die Summe bildet und das Ergebnis dorthin setzt, von 
wo man den Befehl EDIT begonnen hat. 

FOR: Dieser Befehl erlaubt das Editieren der Größe der Zellen. 
(Z.B. statt 8 Zeichen 16 Zeichen pro Zelle.) Weiters kann man 
für Zahlen die allgemeine Schreibweise auf der Matrix bestim¬ 
men. (Z.B. für alle numerischen Werte S-Schreibweise mit zwei 
Kommastellen für Cent.) 

GO: Erlaubt den Cursor an eine bestimmte Stelle zu setzen. 

INS: Wie beim Basic analog zu Del. 

LOCK: Schützt spezifizierte Zellen vor nachträglicher Verände- 

MO^E: Ermöglicht das Verschieben von Zellen. 

NAME: Damit kann eine Referenz zu einer Zelle über einen 
Namen errichtet werden. 

OPT: Damit kann die automatische Durchrechnung der ganzen 
Matrix bei einer Änderung mit „NO“ unterbunden werden. 

D.h. Zeitersparnis bei der Erstellung neuer Modelle. 

PRINT: Druckt die Matrix aus. Entweder mit Werten, oder mit 
verwendeten Formeln. 
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Für die verschiedenen Computer-Betriebssysteme gibt es unter 
der Reihe „Software-Schnellkurs“ eine Reihe von Nachschlag¬ 
werken, die es dem „Normal-Menschen“ ohne große Program- 
mierkenntnisse ermöglichen soll, verwertbare Ergebnisse für sei¬ 
ne alltägliche Arbeiten zu erzielen. Man findet eben auch in 
diesem Buch nur das Wichtigste, kurz und übersichtlich darge¬ 
stellt, ohne Schnörkel und Weitschweifigkeiten. 

Tips und Tricks sind hier ebenso wenig zu finden wie zeichne¬ 
rische Darstellungen und Hintergrundinformationen. 

Fazit: Ein rundum praktisches Buch, mit dem man eigentlich 
zufrieden sein könnte, wenn nicht... ja, wenn nicht sein Preis 
wäre. Für einen Umfang von 93 Seiten 37 Mark zu verlangen, 
ist schon ein starkes Stück, Ein etwas günstigerer Preis und das 
Buch hätte noch mehr zufriedene Leser. 


QUIT: Damit verläßt man das Programm. 

SORT: Ermöglicht das Umgruppieren der Matrix. 

TRANS: Dieser Befehl bezieht sich auf die Diskette als Speicher. 
Bei zwei Laufwerken muß unter Option „DSKw“ spezifiziert 
werden. 

WINDOW: Damit kann der sichtbare Matrixbereich frei aus be¬ 
liebigen Teilen der Matrix zusammengestellt werden. 

XTERN: Dieser Befehl bindet inaktive Datenlisten in ein 
Modell ein. 

Alle diese Befehle werden in Untermenüs ausgeführt, und er¬ 
möglichen sehr komplexe Anwendungen, deren Erklärung hier 
zu weit gehen würde. 

Der weitläufigste Befehl ist ED1T, bei dem, wie schon erwähnt, 
Formeln erstellt werden. 

Denn innerhalb dieses Befehls liegt ein weiterer formaler Kata¬ 
log von Multiplan begründet: Das Format der Formeln, und 
der darin verwendeten Funktionen. 

Dazu aber nur einige Beispiele als Veranschaulichung, denn 
dieses Kapitel füllt schließlich fast alle 240 Seiten des Skrip¬ 
tums. 

Man unterscheidet bei den Formeln solche, die sich auf eine 
ganze Gruppe von Zellen beziehen, und zwischen amathemati- 


schen, logischen und textbezogenen Funktionen. 

Zur ersten Gruppe gehören Formeln wie etwa: 

AVERAGE (List): Gibt für eine definierte Anzahl von Zellen 
(List) mit numerischem Inhalt das arithm. Mittel wieder. 

MAX (List): Wird definiert wie AVERAGE (List) und beinhal¬ 
tet den größten numerischen Wert. 

SUM (List): Gibt die Summe aller Werte der Liste wieder. 

Die zweite Gruppe von Funktionen, die in Formeln verwen¬ 
det werden können, beinhaltet neben vom BASIC her bekann¬ 
ten mathematischen Operationen (wie ABS(N), COS(N), 
EXP(N)...) sehr interessante logische Funktionen: 

IF (Logical, Then Value, Else Value): Entspricht dem Basic- 
befehl IF/THEN/ELSE, hat aber für Basic unbekannte Ausprä¬ 
gungen direkt innerhalb des Befehls. So z.B.: 

IF (R(-l) 0=0, „Gewinn“, „Verlust“): Ist der numerische 
Wert der Zeile über dieser Zelle kleiner Null, dann schreibt 
Multiplan darunter das Wort „Verlust“, andernfalls „Gewinn“. 
ISERROR (Value): Das Ergebnis ist „-1“ wenn der Wert (Value) 
keinen Fehler aufweist, bzw. „1“ wenn ein Fehler auftritt. 

(Z.B. Kollision mit alphanumerischen Werten.) 

Dazu kommen natürlich die gängigen BASIC-Symbole wie 

+, — , *,/,%• 

Etwaige Felder werden immer mit dem Präfix „#“ unmittelbar 
in der Fehlerzeile angezeigt. (Z.B.: #NUM! für Overflow, oder 
#NAME? bei nicht definiertem Namen.) 

Dies nur als Abriß einer Fülle von Funktionen, die man bei der 
Anwendung bald durchschaut. Das ganze Multiplan ist also ei¬ 
gentlich eine eigene Programmiersprache, die man lernen muß, 
bei der einem aber BASIC-Kenntmsse weiterhelfen! 

Einmal erstellte Modelle speichert man einfach auf Diskette, 
und kann sie wie Programme später laden und mit ihnen 
arbeiten. 

Wie man so ein Modell erstellt, und die Formeln für bestimmte 
Probleme konstruiert, das ist so frei wählbar wie die Program¬ 
mierweise in TI-BASIC! Jeder entwickelt dabei im Rahmen 
des Systems seine persönlichen Eigenarten! 

Als Veranschaulichung diene folgendes kleine Modell einer 
Haushaltskostenberechnung von drei Studenten: A, B und C. 

Sie teilen sich die Miete im Verhältnis 3:2:1, da die Zimmer 
verschieden groß sind. Lebensmittel und Strom/Gas werden ge¬ 
drittelt. Student B trinkt aber keinen Kaffee. 

Diese Angaben bilden die Ausgangsbeziehungen, die wir nun in 
die Matrix übertragen (siehe Abb.). Beide Taoellenausdrucke 
zeigen das selbe Modell; einmal mit den errechnten Werten 
und das andere Mal mit den verwendeten Formeln. Die drei 
Kostenkolonnen (Nahrung, Miete und Strom) werden zunächst 
aufaddiert, und dann auf die einzelnen Studenten verteilt, wo¬ 
bei die vorher willkürlich getroffenen Annahmen berücksichtigt 
wurden. Die Klammerausdrücke wie R(-l 1)C beziehen sich auf 
Werte die in die Formel als Rechengrößen eingehen. 

SUM(R(-10)C:R(-2)C) bedeutet also: 

Bilde die Summe der Werte, die in der selben „Spalte“ stehen, 
beginnend zehn Zeilen weiter oben bis einschließlich zwei 
Zeilen weiter oben. Der Doppelpunkt bildet mit den beiden 
Platzhaltern ein Intervall. Man muß jedoch nicht die kompliziert 
«aussehenden Koordinaten selbst eingeben, sondern nur mit dem 
Cursor die jeweilige Stelle markieren. Multiplan schreibt die 
Formel dann automatisch an. Genau so kann man z.B. beliebige 
Werte der Matrix mit einer Konstanten multiplizieren (siehe 
Mietkosten). Man fährt nach dem Befehl EDlT an der gewünsch¬ 
ten Stelle den Cursor zu jener Zahl, die man zur Berechnung 
verwenden will. Dann drückt man z.B. „*3“ und darauf 
„ENTER“, und schon ist die neue Formel fertig. Man gewöhnt 
sich sehr schnell an das Betriebssystem von Multiplan. Der oben 
erwähnte Modellcharakter von Multiplan erlaubt nun, einzelne 
Werte zu variieren (z.B. die Betriebskosten), und Sekunden spä¬ 
ter hat Multiplan alle Größen an die neuen Werte angepaßt. 
Bezüglich der Anwendung sind der Phantasie keine Grenzen ge¬ 
setzt. Je mehr man sich mit Multiplan befaßt, desto schneller 
kann man Probleme in ein Modellschema einfließen lassen. 
Aufgrund der besprochenen Möglichkeiten, und des relativ nied 
rigen Preises (ca. 2500,—) sollte Multiplan für Interessenten von 
Informations-Management eine Art Ptlichtsoftware werden. 

Wer selbst mit Multiplan arbeitet, kann gerne seine Erfahrungen 
und eventuelle Tips an uns zur Veröffentlichung weiterleiten. 
Multiplan ist insgesamt ein sehr attraktives Softwarepaket, und 
eröffnet vor allem in wirtschaftlichen Belangen eine Anwend¬ 
barkeitsfülle, die man bei Home Computern dieser Preisklasse 
selten findet. (Alexander Berger) 






SOFTWARE TESTS 


Grafik-Master 

Mit diesem umfangreichen Programmpaket haben Sie die Mög¬ 
lichkeit mit selbstdcfiniertcn Symbolen sowie direkten Zeich¬ 
nen mittels Tastatur oder Joystick Farbgrafiken zu erstellen. 
Das Zcichenfeld hat 232 x 168 Punkte, die jeweils einzeln 
uneingeschränkt ansprechbar sind; d.h. höchstmögliche Bild¬ 
auflösung die der TI 99/4A bietet. Alle 16 Farben stehen 
Urnen uneingeschränkt zur Verfügung. Daneben können Sie 
auf einer 16 x 16-Matrix (wohl allen bekannt vom Sprites 



definieren) bis zu 100 Symbole selbst definieren. Direkt auf 
dem Zeichenfeld können Sie einen 56 x 56-Punkte groben 
Ausschnitt festlegen und beliebig in andere Bildteile'umko¬ 
pieren. Selbstverständlich können alle Bilder auch abgespei¬ 
chert und wieder eingelesen werden. 

Die Bcnutzerfuhrung erfolgt mittels einer Menüeleiste (siehe 
Bild) die am Bildrand erscheint und aus der mittels Joystick 
die jeweils gewünschte Funktion aufgerufen wird. 

Dieses Paket gehört zu den faszinierendsten Programmen, die 
dem TI 99/4 A zur Vertilgung stehen. Lauft mit Extended 
Basic, Mini-Memory oder Editor/Assembler. 

3D-Welt 



Eat Man 

l)u-v.-s Programm entspricht im Bildschirmaufbau sowie Spiel- 
•d'i-iu! dem bekannten Arcadespicl Pac Man. Ihre Spielaufgabc 
:s< es. mit ihren drei hat Man’s möglichst viele Punktc-Kekse zu 
Ir essen lu acht nehmen müssen Sie sich jedoch vor den vier 
Wächtern; eine Berührung wäre tödlich. Vier Superkekse geben 
Ihnen j .'doch die Kraft, selbst die Wächter vor Furcht erblei¬ 
chen zu lassen und Sie zu fressen, f 

Geschicklichkeit. Reaktion und Tempo sind die Merkmale die¬ 
ses Spieles in hoher Qualität. 

Dieses Programm lauft unter Extended Basic, Mini-Memory 
und Editor/Assembler. 

Worm Attack 

Dieses Programm entspricht in etwa dem bekannten Centi- 
nede. Versuchen Sie mit Ihrer Leserkapcme den angreifenden 
Wurm zu stoppen. Es erwarten Sie einige Überraschungen 
(Fliegen. Spinnen . .-.). Wenn Sie ein Wurmsegment treffen, 
verwandelt es sich in einen Totenkopf und der Wurm teilt 
sich. 

Dieses Asscmblerspiel zahlt sicher zu den raschesten Spielen 
und verlangt einiges an Reaktionsvermögen. Es läuft unter 
Extended Basic, Mini-Memory sowie Editor/Assembler. 


Mit diesem Programm erstellen Sie äußerst komfortabel drei¬ 
dimensionale Körper und Grafiken. Nun haben Sie hier cie 
Möglichkeiten eines Personalcomputers realisiert: Drehen um 
jede der drei Raumachsen; Verkleinern. Vergröbern und Ver¬ 
zerren; Bewegen über den Bildschirm; Ein- und Ausblenden 



einzelner Bildschirmteile. Und das alles mit einer Geschwindig¬ 
keit, die Sie dem „Winzling“ 99/4 nie zugetraut hatten. Auch 0 
dieses Programm läuft sowohl unter Extended Basic, wie auch 
mit dem Mini-Memory bzw. Editor/Assembler. 

Vom Vertrieb wurden uns für die Programmpakete folgende 
Preise genannt: 

Spiele je DM65,— 

Grafik je DM99,- 

Diese Programme sind in Deutschland bei der Firma HeGa- 
Soft in München erhältlich. 


Othello 

Wie dieses Spielmodul zu seinem Namen kommt, ist das einzige, 
was die Beschreibung nicht beantwortet. Tatsache ist aber, daß 
das Spiel an sich schon lange unter dem Namen'REVERSI bei 
uns bekannt ist. Und eben dieses Brettspiel wird nun seit einiger 
Zeit, für Home Computer aufbereitet, in diversen Variationen an- 
geboten. (Bei PHILIPS z.B. heißt das Spiel SAMURAI!) 

Nun aber zu den Spielregeln. Auf 64 Feldern, ähnlich einem 
Schachbrett, befinden sich zu Spielbeginn je zwei Spielsteine für 
jeden Spieler. Das Ziel des Spiels ist möglichst viele Steine des 
Gegners einzuschließen und dadurch zu eigenen Steinen zu ma¬ 
chen. Wer alle Steine des Gegners umgefärbt hat, oder am Spiel¬ 
ende, wenn kein Feld mehr frei ist, die meisten Steine besitzt, 
der hat gewonnen. Soweit so gut! Aber was bietet die Computer¬ 
version dieses an sich sehr einfachen Spiels sonst noch? 

Erstens muß man nicht unbedingt einen Mitspieler zur Verfügung 
haben, weil man ja auch gegen den Computer spielen kann, und 
dies sogar mit verschiedenen Schwierigkeitsstufen. Zusätzlich 
bietet aas TI-Modul aber noch eine Reihe anderer Möglichkeiten. 
Man kann z.B. während eines Spieles den Computer fragen, wel¬ 
chen Zug er machen würde; ebenso kann man während eines 
Spieles die Farbe wechseln, der Computer spielt dann mit der 
anderen Farbe weiter. Für Spielanfänger schließlich besteht die 
Möglichkeit alle möglichen £üge, die dem Spieler offenstehen, 
vom Computer anzeigen zu lassen. Diese Funktionen kann man 
beliebig ott (währendeines Spiels) aufrufen. Ein weiterer Unter¬ 
schied zur Brettspielversion ist der automatische Zugwechsel, 
wenn ein Spieler einmal keinen Zug machen kann. All diese 
Vorgänge werden durch kurze Sätze am Bildschirm angezeigt. 
Daneben beginnt der Computer selbst mit einem Demopro¬ 
gramm, wenn kein Spielwunsch eingegeben wird. 
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Das Niveau des elektronischen Gegners ist sehr hoch, da er ja 
kaum eine Möglichkeit übersieht, was gerade beim Spiel 
„Mensch gegen Mensch“ oft eine Partie entscheidet. Dafür be¬ 
nötigt der Computergegner sehr viel Zeit für seine Züge, wo¬ 
durch ein Spiel sehr langatmig werden kann. Obendrein, und 
das gefällt mir am wenigsten, muß man seine Züge in Koordi¬ 
natenform eingeben, was ständige Reihen-Spalten-Zählen mit 
sich bringt. Vor allem für Kinder degeneriert dieses lustige 
Spiel dadurch zu einer unfreundlichen Zahlentabelle. Und 
wenn wir schon bei Tabellen sind, dann muß ich unbedingt 
meine Enttäuschung bezüglich der grafischen Aufbereitung los¬ 
werden. Von 16 Farben und einer Unzahl von Tönen, die einem 
phantasievollen Programmierer zur Verfügung stehen würden, 
werden nur grün und schwarz und einige Piepslaute eingesetzt; 
wenn man von der Titelseite absieht. 

Alles in allem ein sehr gutes Programm (Spiel), aber die unhand¬ 
liche Zugeingabe und die matte Grafik lassen viel vom inhalt¬ 
lichen Effekt verblassen. Die Beschreibung ist erstklassig; das 
Titelbild jedoch entpuppt sich als Marketinglüge eines Produkt¬ 
managers . . . 


Munch-Man 

Dieses Spielmodul ist zwar nicht so neu wie PARSEC, aber 
auch sehr beliebt, nicht zuletzt wegen der originellen Spielweise. 
Das Spiel gibt es, wie sehr viele TI99/4A-Spiele, auf Modul und 
auf Diskette. 

Erforderliche Konfigurationen: 

Modul:,Konsole, empfehlenswert Joy-Sticks. Diskette: Konsole 
mit Diskettenantrieb, Diskettensteuerkarte und Speichererwei¬ 
terung zuzüglich XBASIC-Modul oder Editor/Assembler. (Dis¬ 
kettenbesitzer werden sich natürlich die Diskettenversion be¬ 
sorgen, da diese billiger ist!) 

+ Der Kampf im Labyrinth + „Friß oder stirb!“ 

Als Besitzer eines MUNCH-MAN befindet man sich im Zentrum 
des Labyrinths, in dem sich außerdem noch vier HOONOS be¬ 
finden und vier ENERGIZER. Sobald man das Zentrum verläßt, 
versuchen die HOONOS den MUNCH-MAN zu fressen. Aufgabe 
des Spielenden ist es nun, seinen MUNCH-MAN so geschickt zu 
manövrieren, daß ihn die HOONOS nicht erwischen. Zusätzlich 
soll der Spieler alle Gänge des Labyrinths mit einer geschlosse¬ 
nen Kette von Punkten verbinden, die der MUNCH-MAN im 
Durchfahren der Wege automatisch zurückläßt. 



i Aber die HOONOS sind nicht immer gefährlich! Trifft nämlich 
der MUNCH-MAN auf einen ENERGiZER, dann lädt er sich 
mit Energie auf, die HOONOS werden schwarz, und können 
für einige Zeit gefahrlos gefressen werden. Gelingt es nicht das 
ganze Labyrinth zu durchlaufen, dann stehen dem Spieler noch 
zwei weitere MUNCH-MEN zur Verfügung. 

Eine Runde ist dann zu Ende, wenn alle Gänge miteinander 
verbunden sind. Die Anzahl der erreichten Punkte pro Runde 
hängt davon ab, wieviele HOONOS gefressen wurden. (Ein 
ENERGIZER zählt 70 Punkte, ein HOONO zählt 100 und 
jeder weitere das Doppelte. Die geschlossene Runde von Punk¬ 
ten bringt zehn Punkte.) 

Jede Runde versetzt am Beginn den MUNCH-MAN zurück ins 
ZENTRUM, und die Farbe des Labyrinths ändert sich. Mit zu¬ 
nehmender Rundenzahl (bis zu 60) steigt die Aggressivität der 


HOONOS und ihre Geschwindigkeit. Schafft man es mit kei¬ 
nem der drei MUNCH-MEN alle Gänge zu verbinden, dann ist 
das Spiel zu Ende. 

Mit wechselnder Labyrinthfarbe ändert sich auch die Form der 
HOONOS, wodurch der Reiz erhöht wird die nächste Runde 
zu erreichen. Die Angriffsmuster der vier HOONOS sind ver¬ 
schieden aggressiv und damit werden sie zu unterschiedlich hart¬ 
näckigen Verfolgern. Vor allem der rote HOONO ist kaum zu 
überlisten. 

Alle 10.000 erreichten Punkte erhält der Spieler dann einen wei¬ 
teren MUNCH-MAN. Durch den hohen Bekanntheitsgrad derarti¬ 
ger Labyrinthspiele (fast jede Videogame Firma hat ein Spiel die¬ 
ser Art in ihrem Programm) erfreut sich MUNCH-MAN großer 
Beliebtheit. 

Dennoch läßt die graphische Auflösung zu wünschen übrig, da 
sie auf den ersten Blick den Eindruck großer Einfachheit er¬ 
weckt. 

Hervorzuheben wäre vor allem die Konzeption des Spiels, die 
so gehalten ist, daß auch ungeübte Video-Fans (Kinder) ihre 
Freude an dem Spiel haben, ohne daß dieses dadurch für Kenner 
langweilig wird. Die Essenz des Spiels ließe sich am besten mit 
dem „ehernen Gesetz des Dschungels“ beschreiben: Fressen 
und gefressen werden. 




TIPS & TRICKS 


f 


Fernübertragung ohne TE II 

Dieses Programm stammt aus den USA und gibt unse¬ 
rem TI 99/4A die Möglichkeit, als intelligentes Termi¬ 
nal mit verschiedensten Übertragungsraten zu arbeiten. 
Die Fähigkeiten des Programmes schließen den auto¬ 
matischen Randausgleich am Zeilenende ebenso ein, 
wie automatisches Anmelden beim Großrechner. 

Die Übertragung ist zum bekannten TE II-Modul kom¬ 
patibel. Was abweichend zum Modul nicht vorgesehen 
ist, ist die Sprachausgabe. Dieses Assemblerprogramm 
läuft unter Editor/Assembler bzw. Mini-Memory, nicht 
jedoch mit Extended Basic und benötigt die 32-K- 
Speicherkarte, RS-232-Schnittstelle und Telefonan¬ 
schluß. 



Die Übertragungsgeschwindigkeit kann in sechs Schrit¬ 
ten von 110 Baud bis 9600 Baud gewählt werden. Ab¬ 
hängig von der Baudrate wählt dieses Programm die zu¬ 
gehörige Anzahl von Stop-Bits automatisch aus. 

PARITY (Prüfsummenrechnung) und Anzahl der 
Datenbits kann ebenfalls ausgewählt werden. Bei den 
Übertragungsarten wählen Sie zwischen Vollduplex 
und Halbduplex. Duplex ist ein Verfahren, das definiert, 
wann ein Zeichen auf dem Bildschirm erscheint. In 
VOLLDUPLEX erscheint jedes Zeichen erst dann auf 
dem Bildschirm, wenn es von der Gegenstation verstan¬ 
den und zurückquittiert wurde. Diese Betriebsart ist 
die häufigste. Wenn Sie eine Taste drücken, sendet Ihr 
99er das Zeichen zum Großcomputer. Dieser schickt 
dieses Zeichen an uns zurück, wo es dann dargestellt 
wird. Dies bedeutet größte Betriebssicherheit durch 
sofortige Gegenkontrolle. In HALBDUPLEX wird je¬ 
des gesendete oder empfangene Zeichen sofort ohne 
Kontrolle am eigenen Bildschirm abgebildet. 
Programmgesteuert können rund 12,5-K-Daten in 
RAM zwischengespeichert werden. Sie können mit 
den Cursortasten innerhalb dieser Daten blättern. Im 
Gegensatz zum Modul wird hier auch die Datensiche¬ 
rung auf Diskette unterstützt. Ebenfalls können, wie 
beim Modul, Diskettendateien übertragen werden. Dies 
kann sowohl im Internal wie im Display (ASCII)For- 
mat erfolgen. Datenübertragung an ein Fremdgerät 
sollten mit DISPLAY=ASCII-Format (siehe unser 
Artikel TI 99/4A — IBM) erfolgen. Diese Datenüber¬ 
tragung wird auf dem Bildschirm dargestellt. Kontroll- 
zahlen erscheinen unter Block(Datei), Record(Daten- 
satz) und Retry(Fehlversuche). Bei Datenfehlern s>nd 
bis zu fünf Wiederholungen erlaubt. 

Ein sehr flexibles und preiswertes Programm, das dem 
Praktiker einiges mehr bietet als das TE II-Modul, wel¬ 


ches wiederum den Spieltrieb (Sprachausgabe!) mehr 
befriedigt. 

Übrigens: Dieses Programm hat den besten Kopier¬ 
schutz, den wir bisher beim TI gesehen haben. Die 
Diskette läßt sich scheinbar mühelos kopieren; nur, 
die Kopie funktioniert dann nicht mehr. Jeder Ver- 
such, den Kopierschutz auf der Originaldiskette auf¬ 
zuheben führt unweigerlich zur Zerstörung des 
Programmes. 

Bezug: HeGa Soft 

Aus Eins mach Vier 

SOFTWARETEST: 

Cassettensoftware der Firma Dynamics Hamburg 

Vier Programmpakete erreichten uns in der für die Firma 
Dynamics bekannten Verpackung: Bücher Archiv - Video 
Archiv Adressen Archiv - Schallplatten Archiv. Alle vier Daten¬ 
kassetten ließen sich mühelos beim ersten Versuch einiesen. Die 
Erläuterungen sind kurz und prägnant. Durch die — Texastypi¬ 
sche - MenüFührung fiel es leicht, mit den Programmen zu ar¬ 
beiten. Fehler konnten wir nicht feststellen. Soweit die guten 
Seiten. Etwas Kritik müssen sich auch diese Programme gefal¬ 
len lassen. Das ist zum ersten der Preis, ab 49,- DM, der für 
reine Kassettensoftware bereits in den oberen Regionen liegt. 
Des weiteren ist der Anwendungsbereich durch die Speicher¬ 
möglichkeit des TI arg beschränkt. Beim Programm „Schall¬ 
platten Archiv“ lassen sich in der Grundversion gerade 45 Titel 
speichern; das sind noch nicht einmal alle Titel von drei nor¬ 
malen Langspielplatten. Mit der Speichererweiterung sind es 
dann wenigstens 200 Titel. Bei den weiteren Programmen ist 
es ähnlich. Was sind für ein mittleres Archiv schon 50 bzw. 

200 Buchtitel? 

Ein Tip von uns, wie Sie einiges an Geld sparen können (auch 
wenn Dynamics darüber wahrscheinlich nicht sehr froh sein 
wird): 

Da alle vier Programme weitestgehend identisch und sehr über¬ 
sichtlich sind, genügt es jedem Nutzer, der sein Gerät nur ein 
bißchen kennt, eines dieser Programme zu erwerben und durch 
Ändern nur der Feldbezeichnung sich die anderen drei - 
und vielleicht noch ein paar mehr - selbst zu schaffen. 

Wenn wir Ihnen mit diesem Tip den Kauf von drei dieser Pake¬ 
te erspart haben, können Sie sich davon leicht ein Jahresabon¬ 
nement TI-REVUE leisten. 


TI Writer 

Mit dem TI WRITER vergrößert TI den Anwendungsbereich des 
TI 99/4A. Die Palette der Anwendungsmöglichkeiten reicht jetzt 
vom Spielcomputer über Lerncomputer bis zum Einsatz in Büros 
und Firmen. Was früher nur teure Textautomaten konnten, ist 
jetzt auf dem TI 99/4A möglich. Wieder einmal zeigt TI mit in¬ 
telligenter Software, was im TI 99/4A steckt. 

Das Textverarbeitungsprogramm wird in Form von einem 
Modul und einer Diskette geliefert. Weiter erklärt ein 180 Sei¬ 
ten starkes Handbuch (leiaer in Englisch) dem Benutzer die 
Funktionen und Möglichkeiten der TI Textverarbeitung. 

Der TI Writer besteht im wesentlichen aus 2 Programmen: 

1. EDITOR 

Der EDITOR dient zum Erstellen, Verändern und Erweitern von 
Briefen und Texten. 

Funktionen des EDITORS: 

EDIT Zum Editieren der Texte und Briefe 

(erstellen, ändern, erweitern) 

TABS zum Setzen von linkem und rechtem 

Randausgleich und beliebigen Tabu¬ 
latorpositionen 

FILES zum Speichern, Verbinden und 

Löschen von Texten auf Diskette 
SEARCH zum Finden und Ersetzen von Wörtern 

und Zeichen 

RECOVER EDIT löscht den Textbuffer 

SHOW DIRECTORY listet den Inhalt der Diskette auf. 













2. TEXT FORMATIERUNG 

Dieses Programm erlaubt es Briefe und Texte beliebig zu for¬ 
matieren und zu gestalten. Funktionen der Formatierung: 


„Füllt“ einen Text von der Diskette 
zwischen die beiden Randtabulatoren, 
setzt die Anzahl der Zeichen pro Zeile 
fest. 

setzt eine Anzahl von Leerzeilen, 
setzt Zeilen in die Mitte des Blattes. 
Fußnoten (fortlaufende Seiten¬ 
nummer) 

Kopfzeile (Kapitelbezeichnung. 
Seitennummer. . .) 
mit diesem Befehl kann man bereits 
geschriebene Texte (Anreden. . . .) 
in den Text einfügen. 

DAS ARBEITEN MIT DEM TI WRITER WORD PROZESSOR 


FILL 

PAGE LENGTH 

SPACE 

CENTRE 

FOOTER 

HEADER 

INSERT FILE 


Als Mindestkonfiguration benötigt man: 

KONSOLE TI 99/4A 
PERIPHERIE BOX 
SPEICHERERWEITERUNG 
V24SCHNITTSTELLE 
DRUCKER 

Nach dem Einschalten des TI 99/4A Systems erscheint die Aus¬ 
wahlliste. 

Man kann zwischen 7 Sprachen wählen, mit „4" Deutsch. 

Nun erscheint 1. EDITOR 

2. TEXT FORMATIERUNG 

3. HILFSPROGRAMM 


Zeile gesetzt. Die zweite (FIXED) berücksichtigt das Schreiben 
von Spalten, die durch das Verschieben der Zeilen durch Ein¬ 
setzen oder Löschen von Zeichen im WORD WRAP zerstört 
wurden 

Man kann während der Erstellung von Texten zwischen den bei¬ 
den Formaten wechseln. 

Ist nun der Text oder Brief fertig, kann man ihn ausdrucken, lö¬ 
schen oder auf Diskette speichern. Es besteht auch die Möglich¬ 
keit, den gerade geschriebenen Text an einen „alten“, auf der 
Diskette gespeicherten Text anzuhängen. 

Nun kann man den 2. Teil des Textverarbeitungsprogrammes 
einsetzen. 

Die TEXT FORMATIERUNG. 

Mit ihr gelingt es, Textstellen hervorzuheben, zu unterstreichen 
oder einzusetzen. Mit MAIL LIST kann man gleiche Briefe mit 
verschiedenen Namen und Adressen einfach schreiben. Leider 
reicht der Platz nicht aus. um alle Möglichkeiten des TI WRITER 
aufzuzeigen. 

Zum Schluß: 

TI hat mit dem TI WRITER WORD PROCESSOR ein hervor¬ 
ragendes Software Paket um einen erschwinglichen Preis, der 
sicher viele Hobby-Anwender (für Berichte, Diplomarbeiten,...) 
ansprechen wird, auf den Markt gebracht. 

ein umfangreiches und allen Ansprüchen gerechtwerdendes 
Softwarepaket. 

30 Editor Funktionen 
24 Formatierungs-Befehle 
niedriger Preis: *000,— 

Mail list für Geschäftsbriefe 
MINUS: 

nur 40 Zeichen pro Zeile. 

Umlaute sind erst nach einiger Übung schnell zu finden. 


v 



Mit „3“ hat TI die Möglichkeit offengelassen, den TI WRITER 
mit Hilfsprogrammen zu erweitern. Ein völlig bildschirmorien¬ 
tierter Cursor (mit den Cursortasten läßt sich der Cursor frei 
am Bildschirm bewegen) erlaubt das Schreiben von 40 Zeichen 
in 24 Zeilen. Insgesamt kann man durch 3 sich überlappende 
Bildschirmfenster 80 Zeichen pro Zeile darstellen. 

Umlaute sowie Zeichenwiedernolung bei längerem Niederhalten 
der Tasten sind selbstverständlich. 

Einsetzen, Löschen und Ändern von Zeilen, Wörtern und Zei¬ 
chen geschieht mit je einer Taste. 

Mit den Randtabulatoren (bestimmen die Anzahl der Zeichen 
pro Zeile) kann man den Text beliebig gestalten. Möchte man 
später den gleichen Text anders gestalten, so geschieht dies mit 
dem Befehl FILL. 

Es gibt im Editor 2 Erstellungsmöglichkeiten. Die erste (WORD 
WRAP) erlaubt das Schreiben, oline auf die Bildschirmposition 
des Cursors zu achten. Ist der freie Platz am Ende einer Zeile 
kleiner als das letzte Wort, so wird es automatisch in die nächste 






TIPS & TRICKS 


Das Zählwerk 
auf der Kassette 

Das Prinzip beruht auf der Idee, eine für Speicherzwecke ver¬ 
wendete Kompaktkassette direkt als Informationsträger für 
den Zählwerkstand zu verwenden. 

Der Sinn dieser Sache ist es, einerseits Rekorder ohne Zählwerk 
einsetzen zu können, andererseits die ermittelten Positionen 
auch bei der Benützung eines anderen Rekorders verwenden zu 
können, was bei eingebauten Zählwerken ja kaum der Fall 
sein kann, da bei verschiedenen Rekordern auch das Zählwerk 
bei gleicher Bandlänge verschiedene Resultate anzeigt. 

Die Handhabung ist recht einfach: 

Programm eintippen (Zeile 10-80) Kassette auf Seite B bis zum 
Anfang spulen. 

Programm starten. 

Nun werden auf der Seite B in absteigender Folge Dateien mit 
dem Inhalt 300 bis 1 abgespeichert. 

Diese „Datei“ Füllt ziemlich genau eine Seite einer C60-Kassette 
(daher dauert dieser Vorgang auch ca. 30 Min.). Von der A-Seite 
aus gesehen (auf die Programme oder Dateien gespeichert wer¬ 
den) befindet sich nun diese Markierung aufsteigend. Also je¬ 
dem Programmstück ist eine Zählwerkszahl zugeordnet. 
Nachdem nun ein Programm auf der A-Seite mit SAVE CS1 
aufgebracht wurde, muß der Zählwerkstand ermittelt werden. 


10 

OPEN «250: "CS1 ", INTERNAL, 

OUTPUT,FIXED 

20 

CALL CLEAR 

30 

FOR 1=300 TO 1 STEP -1 

40 

A= 1 

50 

PRINT «250:A 

60 

NEXT I 

70 

CLOSE «250 

80 

END 

1 00 

OPEN «250: "CS1 ", INTERNAL 

, IMPUT , FIXED 

1 1 O 

INPUT «250:A 

1 20 

PRINT A 

1 30 

GOTO 110 

140 

CLOSE «250 

1 50 

END 

200 

OPEN «250: "CS1”, INTERNAL 

, INPUT ,FIXED 

2 1 0 

INPUT “NUMMER:":N 

220 

INPUT «250:A 

225 

PRINT Ai 

230 

IF N=A THEN 250 

240 

GOTO 220 

250 

CLOSE «250 

260 

CLOSE «250 

270 

END 


XBasic noch besser 

Mit den folgenden acht „Geboten“ können Sie nicht nur Spei¬ 
cherplatz (Bytes) sparen, sondern auch die Geschwindigkeit 
erhönen: 

1. Halten Sie die Namen der Variablen so kurz wie möglich. 
(Z.B. A, BS usw.) 

2. Halten Sie die Anzahl der Variablen möglichst gering, und 
verwenden Sie sie sooft es geht. 

3. Gewöhnliche Variable „laufen“ rascher als ein- oder mehr¬ 
dimensionale. (Z.B. A ist rascher als A(2). Und A(2) ist rascher 
als A(2,2).) 

4. Benutzen Sie die niedrigste Nummer für das Sprite, welches 
am meisten in Bewegung ist. 

5. Versuchen Sie möglichst viele Charakters in einem CALL 
CHAR-Statement zu definieren. Z.B.: 

CALL CHAR (46, “FFFFFF”, 70, “10AFCE”. 42,A$) 

6. Reduzieren Sie die GOTO- und GOSUB-Statements auf ein 
Minimum. 

7. Je weniger Bytes ein Statement hat, desto rascher läuft es. 

8. Füllen Sie die Zeilen mit Mehrfach-Statements. Aber 
ACHTUNG! Dieser Rat ist vor allem für geübte Programmierer. 
Sollte ein Fehler auftreten, so wird die Zeilennummer ausge¬ 
worfen. Dieser Hinweis ist bei Zeilen mit mehreren Statements 
keine große Hilfe mehr. 

CALL JOYST 

Die folgenden drei Programme zeigen, wie Sprites bewegt wer¬ 
den können. Das erste Programm bewegt das Sprite, wenn der 
Joystick betätigt wird. Das zweite demonstriert steigende Ge¬ 
schwindigkeit. Je länger die Sticks in eine Richtung gehalten 
werden, desto rascher wird die Geschwindigkeit. Das dritte Pro¬ 
gramm bewegt das Sprite jedesmal in eine neue Grafikzeile 
und/oder -spalte, wenn der Stick bewegt wird. 

Das Sprite kann mit dem Joystick 1 in alle 8 Richtungen ge¬ 
lenkt werden. (Beachten Sie bitte die Anmerkung nach dem 
dritten Programm.) 

ACHTUNG: Die ALPHA-LOCK-TASTE darf nicht gedrückt 
sein. 


Programm 1 

100 CALL CLEAR :: CALL 
SPRITE < *4 1,42, 1 6,100,100) 

110 CALL JOYST(1,X,Y):: CALL 
MOT I ON < ff l,-Y*4,x*4):: 

DISPLAY AT(23,4):" Y="j 

Y, "^X*" ; X, " -Y*4=" 5 -Y*4, ,, X*4=" ; X*4 

:: goto lio 


Also: 

Kassette umdrehen (Seite B-b 
Eintippen der Zeilen LpO — J 50 
Programm starten. 

Nach dem Erscheinen der Zählwerkszahl auf dem Bildschirm 
Rekorder sofort manuell stoppen. Zu diesem Wert 5 addieren 
und man hat den nächsten freien Speicherplatz ermittelt. 

(5 muß deshalb addiert werden, weil bis zum Anzeigen des 
Zählwerkstandes einige Plätze durch die Anlaufzeit des Rekor¬ 
ders nicht berücksichtigt werden.) 

Bevor nun das nächste Programm mit SAVE CS1 auf die Kas¬ 
sette soll, ermittelt man mit dem Programm (Zeilen 200 — 
260) auf der Seite B diese zuvor notierte freie Stelle durch 
Eingabe dieses Zählwerkstandes. 

Das Band stoppt automatisch. 

Kassette auf Seite A drehen und zu sicherndes Programm ab¬ 
speichern. 

Wenn sich diese Beschreibung auch etwas kompliziert anhört 
und die Vorgänge nicht auf Anhieb komplett einleuchten, so 
wird sich doch schon bald zeigen, daß die Handhabung nach 
kurzer Einübung sehr einfach und sicher ist. 

Der große Vorteil, daß Bandstellen immer mit 100%iger Treff¬ 
sicherheit gefunden werden können, wird alleine schon ausrei¬ 
chen, selbst bei Rekordern mit Zählwerk auf dieses Verfahren 
umzusteigen. 


Zu 110: Wenn der Stick bewegt wird, werden den Variablen X 
oder Y oder beiden die Werte 4,-4 oder 0 zugewiesen. Die X- 
Variable steht für die Spaltenrichtung und die Y-Variable für die 
Zeilenbewegung. 

Da sich die Zeilen nach oben subtrahieren und nach unten 
addieren, müssen wir das Vorzeichen von Y ändern. *4 ergibt 
die Geschwindigkeit (0,-16,16). 


Programm 2 

Wegen der besseren Übersicht stehen die wichtigsten Befehle in 
einzelnen Zeilen. 


100 CALL CLEAR :: CALL 
SCREEN(7) :: CALL 

MAGNIFY(2):: CALL 
SPRITE ( 141,48, 1 6,100,100) 

HO CALL JOYST ( 1 , S , Z ) 



120 X=(X+S)*-<ABS<X)<124) 

130 Y=(Y-2)*-(ABS(Y><124) 

140 CALL MOTION(#1,Y,X):: 

DISPLAY AT 

(24,l):" y= m ;y, "x=";x :: goto 
110 

Zu 120 u. 130: 

Wörtlich bedeuten diese Statements folgendes: Wenn der abso¬ 
lute Wert von X (Y) kleiner als 124, dann X=X+C andernfalls 
X=0. 

Bevor der Computer der Variablen X (Y) einen neuen Wert zu¬ 
weist, berechnet er alle Ausdrücke und Funktionen. Das heißt, 
daß das Ergebnis von (ABS(X)<124) -1 ist. wenn es wahr ist 
(absolute Zahl kleiner 1 24). Wenn die Zahl größer oder gleich 
124 ist (falsch), dann ist das Ergebnis dieses Ausdruckes 0. 

Das Ergebnis wird negiert und mit dem linken Ausdruck multi- 
liziert. So daß. entweder eine positive Zahl (kleiner 1 24) oder 
in der Zielvariablen steht. 

Programm 3 

100 CALL CLEAR :: CALL 
COLOR(2,7,7) :: CALL 

SCREEN(12) 

110 CALL HCHAR(24,1,40,64) 

120 CALL VCHAR(1,31,40,96) 

130 CALL 

SPRITE(#1,42,2,17,17):: 2, 

SP = 3 


140 CALL JOYST(1,X,Y):: 
X=SGN(X);: Y= -SGN(Y) 

150 CALL GCHAR(Z + Y,X + SP,A) : : 

IF A=40 THEN CALL 

SOUND(-50,120,7):: GOTO 140 

else sp=sp+x :: z=z+y :: 

CALL LOCATE 

(#1,Z*8-7,SP*8-7):: GOTO 
140 


Zu 110: Da nur 32 Spalten am Schirm Platz haben, werden die 
restlichen Blöcke in der ersten Zeile plaziert. 

Zu 120: Beginnend in der Spalte 31 werden 96 Zeilen mit 
Blöcken versehen. 48 Blöcke in den Spalten 31 und 32, die 
restlichen in den Spalten 1 und 2. 

Zu 140: X erhält je nach Vorzeichen -1.0 oder 1. Y erhält das 
negierte Vorzeichen. 

Zu 150: CALL GCHAR überprüft das folgende Zeichen. :: 
Wenn es ein Block ist ertönt ein Ton, wenn nicht, wird die 
neue Zeile und/oder Spalte errechnet und mit Hilfe von CALL 
LOCATE wird das Sprite neu plaziert. 


ANMERKUNG: Falls Sie die Bewegungen der Diagonale nach 
ausschalten wollen, geben Sie folgendes ein: 

140 CALL JOYST (1 .X,Y):: IF X*Y THEN 140 ELSE .... 
(Rest) oder IF X AND Y THEN 140 ELSE .... (Rest) 
Wörtlich: Wenn XOO und YOO (kann nur bei Diagonalbe¬ 
wegungen möglich sein), dann frage wieder ab. 

Christian Roch 


HeGa-So-ft 


Hardware, Software und Literatur 
■für das TI 99/4A Computer System 

I 

Sehr geehrte Kunden, bitte I 

beachten Sie unsere neue I 

Postanschrift: I 

I 

HeGa-So-ft I 

Postfach 1107 I 

I 

8044 Lohhof I 

I 

Ab sofort haben wir für Sie an I 

jedem Werktag von 8.00 - 13.00 I 

einen I 

I 

Telefon service I 

I 

eingerichtet. Unter der Nummer I 

I 

089/28603 6 I 

I 

können Sie Ihre Bestellungen und I 
Anfrageb bei unserem "guten Geist" I 
Hel 3 a h i n t er 1 assen . Sie” werden I 

zwar nicht immer sofort eine Ant- I 
wort auf Ihre Fragen erhalten I 

können, werden dann jedoch zurück- I 
gerufen. I 


AtZ 



TI99/4A 


Unsere aktuellen Angebote: 


Editor/Assembler Paket 175,— 
Buchungsjournal Modul 348,— 
Sprachsynthesyser 148,— 
Drucker Mannesmann MT 80 895,— 
An sch 1 ujBkabe 1 (Paralell) 99,-- 
Joystickver1ängerung 3 m 22,— 

Assemb1erprogramme: 

Grafik-Master 99,— 
3 - D - World 99,-- 
Eat - Man ( = Pac-Man) 65,-- 
Worm Attack 65,— 
Compu Car 65,— 


Super Extended Basic 
mehr als lOO neue Befehle für 
Ihr Extended Basic Modul. 
(Benötigt Disc + 32 K) 448,— 

Literatur: 

TI 99 Journal Hefte 1-5 je 11,-- 
Basic Spezial Buch 1+2 je 29,— 
Assembler Spezial B.l+2 je 29,— 
Minimemory Einführung dtsch55,— 
HeGa-Katal og gratis 


KAUFBERATUNG 


Der große 
Bruder 
































Für Aufregung in der Home-Computerbranche sorgte Texas Instruments 
kurz Vorjahresschluß ’83: Der TI 99/4A unterbot mit seinem „Schlußvcr- 
kaufspreis“ von zuletzt nur noch knapp 250 Mark alle Konkurrenten. 

Der Kleine ging weg wie die warmen Semmeln. Sollte er auch, um die 
Lager und Produktionsstätten freizumachen für den „Großen Bruder“, 
den TI Professional Computer. Wir stellen Ihnen hier dieses Modell einmal 
vor, nennen die Preise und sagen, wo man ihn „ausprobieren“ kann. In 
einer der nächsten Ausgaben finden Sie dann einen Praxis Test. 


Die Systemeinheit des TI PROFES¬ 
SIONAL COMPUTERS enthält alle 
Steuerfunktionen für das Gesamt¬ 
system und Steckplätze für die zahl¬ 
reichen Systemerweiterungen. 

In der Systemeinheit untergebracht 
sind: Ein 16-Bit-Standard-Prozessor 
des Typs 8088. Arbeitsspeicher mit 
einer Kapazität von 128 KB - erwei¬ 
terbar auf 768 KB - ein bis zwei 
Disketten-Laufwerke von je 360 KB. 
Bildschirm-Steuereinheit. Drucker- 
Schnittstelle. Stecksockel für einen 
8087 Co-Prozessor und Spannungs¬ 
versorgung. 

Bildschirm 

Beide für den TI PROFESSIONAL 
COMPU TER verfügbare Monitore 
(1 2 Zoll Monochrom- und 1 3 Zoll 
Farbbildschirm) zeichnen sich durch 
hochauflösende Grafik von 720x300 
Bildpunkten aus. Die Kapazität der 
Bildschirme beträgt 2000 Zeichen 
(25 Zeilen zu je 80 Zeichen), wobei 
die 25. Zeile als ..Kommando-Zeile“ 
verwendet wird. 

Die Video-Steuereinheit ist für 
Schwarz/Weiß- und Farbmonitore 
dieselbe. 

In Verbindung mit der hohen Auf¬ 
lösung eignet sich der Farbmonitor 
mit acht darstellbaren Farben be¬ 
sonders für Grafik-Präsentationen 
(Geschäftsgraphik, CAD/CAM). 

Systemerweiterungen 

Zur Speicherung von Daten und 
Programmen kann die Steuereinheit 
mit bis zu zwei 51/4 Zoll Disketten- 
Laufwerken von je 360 KB ausgestat¬ 
tet sein. Anstelle des zweiten Lauf¬ 
werkes und wenn Massenspeicher 
benötigt werden, hat der Anwender 
die Möglichkeit, ein Winchester-Lauf- 
werk mit 10 MB Speicherkapazität 
einzusetzen. 

Der Arbeitsspeicher ist von stan- 
dardmäßig 128 KB in 128/256 KB 
Schritten auf 768 KB erweiterbar. 

In der maximalen Ausbaustufe wird 
nur ein Erweiterungssteckplatz be¬ 
legt. Speicherintensive Anwendungen 
wie integrierte Lösungen, Datenban¬ 
ken und Grafik-Applikationen, sind 
somit problemlos ablauffähig. 

Ein Grafik-Zusatz erlaubt achtfar¬ 
bige Darstellungen bzw. acht Grau¬ 
töne bei Verwendung des Mono¬ 
chrom-Bildschirms. Ohne Belegung 
eines Erweiterungssteckplatzes wird 


die Grafik-Platine auf die Bildschirm- 
Steuereinheit aufgesteckt. Durch 
identische Auflösung können Grafik- 
Präsentationen auf beiden Monitoren 
ablaufen, ohne daß Änderungen im 
A n we n d e r p rog ra m m vorgenommen 
werden müssen. 

Für die unterschiedlichen Verfahren 
der Daten-Kommunikation ist eine 
universelle Schnittstellenkarte für 
serielle Übertragung vorhanden, 
ln Verbindungen mit den verschie¬ 
denen Emulationsprogrammen (ob 
Stapel- oder Dialogbetrieb für Zei¬ 
chen- und Bitorientierte Protokolle) 
hat der TI PROFESSIONAL 
COMPUTER die postalische Zulas¬ 
sung zum Betrieb im Fernsprech-, 
Datex-L- und HFD-Netz erhalten. 

Die Einbindung der TI PROFES¬ 
SIONAL COMPUTER in lokale 



Netze wie Corvus OMNINET und 
EHTERNET ermöglicht die ge¬ 
meinsame Nutzung von System- 
Komponenten - Plat'tenspeicher, 
Drucker, Plotter usw. 

Der Numerische Co-Prozessor 8087 
wird von mehreren Programmier¬ 
sprachen unterstützt wie MS - 
FORTRAN und MS -PASCAL. 
Verarbeitungszeiten für recheninten¬ 
sive Anwendungsprogramme wer¬ 
den wesentlich verkürzt. (Je nach 
Operation um den Faktor 10 bis 
100 .) 

Tastatur 

Die ergonomisch gestaltete Tastatur 
des TI PROFESSIONAL COMPU- 
J ERS ist über ein Spiralkabel mit 
der Systemeinheit verbunden. Bei 
einer stufenlosen Neigungsverstel¬ 
lung von 5 bis 1 5 Grad ist die frei 

M-t 


bewegliche Eingabetastatur in funk¬ 
tionelle Gruppen unterteilt. Schreib- 
maschinen-Tastatur, numerisches 
Eingabefeld, Cursor-Steuerung und 
Funktionstastenfeld sind übersicht¬ 
lich getrennt angeordnet. Häufig 
verwendete Tastenfunktionen sind 
doppelt vorhanden. Aufbau und 
Tastenanordnung der „Deutschen 
Tastatur“ entsprechen der DIN- 
Norm. 

Matrix-Drucker 

Die Modelle 850 und 855 der praxis¬ 
erprobten TI Matrix-Druckerfamilie 
OMNI 800 runden den TI PROFES¬ 
SIONAL COMPUTER als ein kom¬ 
merzielles Gesamtsystem ab. Die 
Darstellungsmöglichkeiten des 
OMNI 850 sind Standard: alphanu¬ 
merische Zeichen mit einer Druck¬ 
geschwindigkeit von 150 Zeichen 
je Sekunde. Mosaik-Grafik für 
balkengrafische Präsentationen und 
Raste-r-Grafik mit einer maximalen 
Punktdichte von 144 Punkten pro 
Zoll. 

Das Modell 855 ist als Kombina¬ 
tionsdrucker nicht nur für einfache 
Druckausgabe geeignet, sondern viel¬ 
mehr für Textverarbeitungsanwen¬ 
dungen. 35 Zeichen pro Sekunde 
schnell, werden Texte in Korrespon¬ 
denz-Qualität zu Papier gebracht 
(32x18 Punkt-Matrix). 

Bis zu drei „elektronische Typenrä¬ 
der“ gleichzeitig können zur Wahl 
der Schriftarten eingesteckt sein. 
Physikalischer Anschluß sowie 
Steuerbefehle entsprechen den 
marktüblichen Standards. 

Programmbibliothek 

Für den TI PROFESSIONAL 
COMPUTER vorhandene Software 
kann folgenden Kategorien zugeord¬ 
net werden: 

- Betriebssysteme 

- Programmiersprachen und 
-Hilfen für die Entwicklung von 
Anwendungsprogrammen 

- Programme (Emulatoren) für die 
Datenfernübertragung 

- Anwendungsprogramme 

Betriebssysteme 

Das Angebot an Anwender-Software 
für Mikro-Computer mit 16-Bit-Pro- 
zessoren wird ständig erweitert. Um 
von Anfang an ein breites Spektrum 
vorhandener Anwendungen verfüg¬ 
bar zu halten, sind vier Betriebssyste¬ 
me angepaßt worden, die sich als 
Quasi-Standard des Marktes etabliert 
haben: MS-DOS 2.11,CP/M-86 , 
CCP/M-86 , UCSD-P 

Programmier-Sprachen/TIilfen 

Abhängig vom Einsatzschwerpunkt 

- kaufmännisch oder technisch-wis- 


KAUFBERATUNG 


senschaftlich, rechenintensiv oder 
Ein-/Ausgabe-orientiert — stehen für 
Erstellung, Test und Änderung von 
Applikationen Programmier-Spra- 
chen in unterschiedlichen Versionen 
zur Verfügung. Dazu gehören BASIC, 
COBOL, PASCAL, FORTRAN, C 
und ASSEMBLER. 

Datenfernübertragung 

Der TI PROFESSIONAL COMPU¬ 
TER wird nicht nur als autonomes 
EDV-System eingesetzt. Als Ergän¬ 
zung zu Großrechner-Systemen, im 
Datenaustausch mit Rechenzentren 


Anwender-Software 

Die Bedienungsfreundlichkeit eines 
Computers wird wesentlich von den 
Anwendungsprogrammen bestimmt. 
Programmauswahl-Möglichkeiten aus 
sogenannten „Menüs“, die auf dem 
Bildschirm verständlich und übersicht¬ 
lich dargestellt den Benutzern durch 
die Anwendung führen, und Hilfs¬ 
funktionen bei fehlerhaften Einga¬ 
ben, sind wichtige Kriterien für pro¬ 
blemloses Arbeiten mit dem Com¬ 
puter. 

Die Auswahlmöglichkeiten aus 
einem Katalog der verschiedensten 


DAS SIND DIE PREISE: 

SYSTEMERWEITERUNGEN 
— 5-14” Disketten-Laufwerk 



und als intelligentes Datenendgerät 
eines TI Bürocomputers wird Soft¬ 
ware für die Datenfernübertragung 
(Emulatoren) verwendet. Emulato¬ 
ren bestimmen nach vereinbarten 
und standardisierten Regeln den 
Datentransfer zwischen TI PROFES¬ 
SIONAL COMPUTER und anderen 
Rechnern. Dabei werden die Daten¬ 
übertragungsdienste der Deutschen 
Bundespost in Anspruch genom¬ 
men. 

Folgende DFÜ-Software wird ange- 
boten: 

— TTY Protokoll 

— 3780 für Stapelverarbeitung 

— 3270 SNA und BSC 

— lokale Netze Corvus OMNINET 
und ETHERNET 

— Bildschirmtext 

— Teletex 


Problemlösungen sind äußerst 
vielfältig. 

Standard-Anwendungen wie Tabel- 
len-Kalkulation, Datenbanken und 
Datei-Management, Graphik-Pakete, 
Textverarbeitung, integrierte Lösun¬ 
gen und Finanzbuchhaltung, sind 
weitgehend branchenneutral. 
Materialwirtschaft, Auftragswesen 
und Fakturierung sind eher bran¬ 
chenspezifisch ausgelegt. 

Das Programmangebot enthält 
außerdem integrierte Anwendungen 
für Führungskräfte aus allen Berei¬ 
chen der Wirtschaft. 


320/360 KB 
— Winchester-Laufwerk 

1.275,- 

10 MB 

— 64 KB-RAM-Speicher- 

6.850,- 

erweiterung 

— Erstes 256 KB Speicher- 

400,- 

Erweiterungsmodul 

2.200,- 

Zweites 256 KB Speicher- 

Erweiterungsmodul 

1.700,- 

— Kommunikations-Modul 

- Grafik-Modul 1 Ebene 

695,- 

für S/W-Monitor 
- Grafik-Modul 3 Ebenen 
für S/W- und 

950,- 

Farbmonitor 

Modell 850 Matrix- 

1.450,- 

Drucker, 1 50 Z/s 

SOFTWARE 
- MS-DOS* 1.25 mit 

1.690,- 

MS-Basic U.S. 

- MS-DOS* 2.1 1 

350,- 

(ohne Basic) deutsch 

200,- 

- C'CP/M-86* (ohne Basic 

- CP/M-86* m. CP/M 

1.100,- 

Basic 

750,- 

- UCSD-P* System 

1.950,- 

— MS-Basic* deutsch 

300,- 

- MS-Basic* U.S. 

300,- 

— MS-Fortran* 

1.050,- 

— MS-Pascal* 

950,- 

MS-Cobol* 

2.350,- 

- RM/Cobol* 

2.850,- 

- Multiplan* 

750,- 

— Easywriter II* 

- UCSD-P* System 

900,- 

Runtime 

750,- 

- CP/M-86* Basic 

350,- 

— MS-Macro Assembler* 

350,- 

— RM/Cobol Runtime* 

850,- 

- MBP-Cobol 

— TTY Kommunikation 

2.850,- 

(Texas Instruments) 

200,- 

— 3270 SNA Kommunikation 


(Texas Instruments) 2.200,- 

— 3780 Kommunikation 

(Texas Instruments) 400,— 

- 931 Emulator 

(Texas Instruments) 250,— 

*US-Trademarks 


Und hier stehen Vorführgeräte 
(geordnet nach PLZ) 


© 


Berolina, Nonnendammallee 128- 
1 38, D-l 000 Berlin 20, Tel. 030/ 
33020. - Datentechnik Piepenburg 
(Herr Piepenburg), Olympische Str. 
13, D-l000 Berlin 19, Tel. 030/ 
3055093. - 
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Hansa Datenverarbei¬ 
tung, GmbH & Co. KG (Herr E. 
Hahn), Sachsenstr. 8, D-2000 Ham¬ 
burg 1, Tel. 040/241173. — Radix 
Bürotechnik GmbH, Heinrich-Barth- 
Str. 1 3, D-2000 Hamburg 13, Tel. 
040/441695. - PRB Alster GmbH 
(Herr Meyer), Industriestr. 14, 
D-2084 Rellingen 2, Tel. 04101/ 
32041. - Metro SB-Großmärkte 
GmbH & Co. KG, Großmoorbogen 
1, D-2100 Hamburg, Tel. 040/ 

771 720. - Metro SB-Großmärkte 
GmbH & Co. KG, Neuenlander Str. 
111, D-2800 Bremen, Tel. 0421/ 
55940. — MDS GmbH (Herr Busker), 
Friedrich-Ebert-Str. 69-71, D-2970 
Emden, Tel. 04921/29093. 


© 


- Metro 

Großmärkte GmbH & Co. KG, Am 
Tönniesberg 1 6-1 8, D-3000 Hanno¬ 
ver 91, Tel. 0511/46040. - eurex- 
data GmbH (Herr Spreckelsen). Am 
Marstall 8. D-3000 Hannover 1, Tel. 
051 1/14828. Metro SB-Großmärkte 
GmbH & Co. KG, Werner-Heisenberg- 
Str. 10. D-3500 Kassel, Tel. 0561 / 
58020. - 


© 


Hamilton Rentals GmbH 
(Herr McLean), Reisholzer Str. 39- 
41, D-4000 Düsseldorf 1, Tel. 0211/ 

21 8031. - Metro SB-Großmärkte 
GmbH & Co. KG, Schlüterstr. 3, 
D-4000 Düsseldorf, Tel. 0211/ 

68750. - Primus Computersysteme 
GmbH (Herr Primus), Hauptstr. 9, 
D-4006 Erkrath 2, Tel. 02104/ 

39901. - PCM (Herr Pohl), Hofstr. 
122, D-4010 Hilden, Tel. 02103/ 
66503. - 3 S GmbH (Herr Schulz), 
Gothaer Str. 17, D-4030 Ratingen, 
Tel. 02102/45059+44011. - Metro 
SB-Großmärkte GmbH & Co. KG, 
Lütkenbrauk 64, D4300 Essen 12, 
Tel. 0201/31910. - Metro SB-Groß¬ 
märkte GmbH & Co. KG, Querstr. 

53, D-4350 Recklinghausen, Tel. 
02361/6020. ICD Integral Data 
GmbH (Herr Frohwein), Münstertor 
51, D-4404 Telgte, Tel. 02504/2034. 
— Metro SB-Großmärkte GmbH & 

Co. KG, Borussiastr. 101, D-4600 
Dortmund l,Tel. 0231/65510. — 
Damm & Johanning (Herr Varnholz), 
Sudbrackstr. 46-48, D-4800 Bielefeld 
1, Tel. 0521 /83036. - GHZ-Westfalia 
Ringstr. 1 8. D-4972 Löhne 3, Tel. 
05731/2430. 


— G.A.S. Gesellschaft 
für Autom. & Systementw. mbH 
(Herr Konrath), Aachener Str. 1 1, 
D-5000 Köln 90, Tel. 02203/291311. 

— gfb Caspers GmbH Datentechnik 
(Herr Caspers), Constantinstr. 90-92, 
D-5000 Köln 21, Tel. 0221/881027. 

- Metro SB-Großmärkte GmbH & 
Co. KG, Schumannstr. 6, D-5102 
Würselen 1, Tel. 02405/650. - 
Metro SB-Großmärkte GmbH & 

Co. KG, Einsteinstr. 28, D-5205 
St. Augustin 3, Tel. 02241/1650. - 
Gast Ingenieurges. mbH (Herr Brügge¬ 
mann), Lindenpfuhlstr. 7, D-5250 
Engelskirchen, Tel. 02263/1 660. — 
Metro SB-Großmärkte GmbH & Co. 
KG, Carl-Zeiss-Str. 6. D-5400 
Koblenz, Tel. 0261/8940. - H+O 
Industrie Computer GmbH (Herr 
Otten), Parkallee 3, D-5372 Schlei¬ 
den-Gemünd, Tel. -02444/2047. — 
Data Technik GmbH Datenverarbei¬ 
tungsgeräte (Herr Schriewer), Pet- 
tenkoferstr. 19, D-5800 Hagen. Tel. 
02331/85094. - 




Metro SB-Großmärkte 
GmbH & Co. KG, Motorstr. 16-18, 
D-701 5 Korntal-Münchingen, Tel. 

0711 /88030. - Rielo Elektronik 
Computersysteme (Herr Riexinger), 
Reichenberger Str. 1, D-7250 Leon¬ 
berg. Tel. 07152/44888. - G.A.S. 
Gesellschaft f. Autom. & Systementw. 
mbH, Limburgstr. 17, D-7300 Ess¬ 
lingen, Tel. 0711/3450548. - Com¬ 
puter Systeme A. Ott + A. Rehorst 
(Herr Rehorst), Stuttgarter Str. 23, 
D-7410 Reutlingen 1, Tel. 07121/ 
40002. - COMPUTERLAND Per- 
com Computer-Vertriebs-GmbH 
(Herr Pazdera). Honsellstr. la/lb, 
D-7500 Karlsruhe 21, Tel. 0721/ 
D-7500 Karlsruhe 21, Tel. 0721/ 
558004. - Werner EberLe GmbH 
(Herr Eberle), Villinger Str. 8, D- 
7530 Pforzheim. Tel. 07231/ 

31 534. - GHZ-Breisgau, Gewerbe- 
str. 93, D-7803 Gundelfingen, Tel. 
0761 /58200, HegeneC& Glaser 


EDV-Beratung 
Jürgen Lindner(Herr Lindner), 

Schwarzwaldstr. 81, D-6000 Frank¬ 
furt 71, Tel. 061 1 /679868. - Metro 
SB-Großmärkte GmbH & Co. KG, 

Am Riederbruch 10, D-6000 Frank¬ 
furt 60, Tel. 0611/40030. - Hamil¬ 
ton Rentals GmbH. Raiffeisenstr. 3, 

D-6072 Dreieich, Tel. 06103/82024. 

— Mahr & Müller Computer (Herr 
Müller), Westring 32, D-6086 Ried¬ 
stadt 5, Tel. 061 58/731 50. - Inge- , w 
nieurbüro Dr.-Ing. V. Kettenring (HeriMünchen 46, Tel. 089/318940. — 


Computerhaus GmbH München 
(Herr Wurzer), Arnulfstr. 2, D-8000 
München 2, Tel. 089/555961. — 
Brünings Sander-ED V-Agentur 
(Herr Sander), Ettalstr. 14, D-8000 
München 70, Tel. 089/712571. — 

CS Computer Software *Herr Stitz), 
Irmgardstr. 3, D-8000 München 71, 
Tel. 089/792017. - Hamilton Ren¬ 
tals GmbH, Schwarzstr. 2, D-8000 
München 80, Tel. 089/4483094. - 
Metro SB-Großmärkte GmbH & Co. 
KG, Ingolstädter Str. 70, D-8000 


Dr. Kettenring), Westring 29, D- 
6107 Reinheim, Tel. 06162/83220+ 
83260. — Logic Bürosyst'eme GmbH 
(Herr Marek), Kaiserstr. 1 8, D-6500 
Mainz, Tel. 06131/222634. - Metro 
SB-Großmärkte GmbH & Co. KG, 
Bölckestr. 78, D-6503 Mainz-Kastel, 
Tel. 06134/6060. - Metro SB-Groß¬ 
märkte GmbH & Co. KG, Camphau¬ 
ser Str. 4, D-6602 Dudweiler, Tel. 


Medata Ges. für med. Datenverarbei¬ 
tung mbH (Herr Eisenbach), Kolping- 
ring 8, D-8024 Deisenhofen, Tel. 
089/6135008. - TCAE GmbH (Herr 
Siefert), Ortsstr. 17, D-8061 Röhr- 
moos, Tel. 08139/6067. — Metro 
SB-Großmärkte GmbH & Co. KG, 
Bajuwarenstr. 11, D-8400 Regens¬ 
burg 1, Tel. 0941 /7050. - Metro 
SB-Großmärkte GmbH & Co. KG, 


06897/7950. — MM Computer Syste- Bücher Hauptstr. 40, D-8500 Nürn- 


me GmbH (Herr Munkelt), Pickard- 
str. 43-45, D-6610 Lebach, Tel. 
06881/1211+2030. — Sabine Ber- 
nard Elektronik (Herr Bernard), 

C 8, 9, D-6800 Mannheim, Tel. 
0621/26714. — spima Computer 
GmbH (Herr Spieß ), M 7, 1 1 D- 
6800 Mannheim 1, Tel. 0621/104017. 
— G.A.S. Gesellschaft f. Autom. & 
Systementw. mbH, Wernher-von- 
Braun-Str. 5, D-6806 Viernheim, 

Tel. 06204/1850. — Bükoma GmbH 
(Herr Brenner), Hauptstr. 41, D- 
6921 Reichartshausen, Tel. 06262/ 
361 1.- 


berg 47, Tel. 0911/33900. - EDV- 
Agentur M. Schweizer KG (Herr 
Schweizer), Pfälzer Str. 16, D-8940 
Memmingen, Tel. 08331/12220. 



s ACHTUNG! TI-99/4A Besitzer 


I ab sofort wieder lieferbar: 
af 

o g> ■ Extended Basic-Modul 290,- DM 

o || ■ Mini Memory 290,- DM 

•5 q ■ Editor Assembler 198,- DM 

| o ■ Parsec 80,- DM 

5 V ■ und alle Atarisoft-Module für TI-99 

Alle Preise incl. MwSt. zuzügl. 5.- DM Versandkosten: Lieferung per 
t— QL Nachnahme oder Vorkasse, ab 200-DM Versandkostenfrei. 

Programm-Service . V 

5584 Bu|lay®|H 

Bergstraße 80 . £ 

Telefon 06542/2715' 


GmbH 


TIPS & TRICKS 


Floppy 
für unter 
400 DM 


Vielen von Euch wird es sicher schon auf die Nerven gegangen 
sein, wenn beim Diskettenkopieren ständig die Aufforderung 
zum Diskettenwechsel erscheint. Besonders beim Kopieren 
von Dateien kann das ganz schön anstrengend sein. 

Daher hier eine Möglichkeit, ein preiswertes 2. Laufwerk zu 
Gesamtkosten von weniger als DM 400,- an Eure Peripherie¬ 
box anzuschließen. 

Ein wichtiger Hinweis jedoch vorab: 

1. Es wird ein, wenn auch nur geringer, Eingriff an der Strom¬ 
versorgung der Box notwendig. Hierdurch erlischt zwangsläufig 
die Werksgarantie. 2. Diese Arbeit sollte nur jemand ausführen, 
der schon einmal einen Lötkolben in der Hand gehabt hat. 

Erst einmal die Stückliste: 

- 1 Shugart kompatibles Laufwerk (z.B. BASF 6106) 

- 1 32poliger Kartenstecker (preßbar) 

- Litze (4x0,25 mm) ca. 1 m 

- Stromversorgungsstecker für das Laufwerk 

- 1 Gehäuse nach persönlichem Geschmack, aber mit 
Lüftung 

Zum Einbau nehmen wir das originale Laufwerk aus der Box 
und notieren uns die Stromversorgungsanschlüsse auf einem 
Blatt Papier (Farbcode und Steckerposition). 

Anschließend nehmen wir unser 4aariges Kabel und Führen es 
von hinten durch das an der Rückseite des Laufwerkseinschu¬ 
bes vorhandene Loch nach vorne durch. Das Stromversorgungs¬ 
kabel des Laufwerkes 1 wird nun etwas aufgedreht und ca. 

10 cm vom Stecker entfernt jede Ader auf 5 mm abisoliert 
(nur abisolieren, nicht durchtrennen). Dort löten wir dann un¬ 
ser vieradriges Kabel an. Auf unserem Blatt notieren wir uns, 
wie wir die Verbindung hergestellt haben. Das andere Ende un¬ 
seres Kabels verbinden wir nunmehr so mit dem Stromversor¬ 
gungsstecker, oder falls dieser nicht aufzutreiben war, direkt 
mit dem Stromversorgungsstecker des 2. Laufwerkes und zwar 
so, daß die Verbindungen exakt denjenigen am Originallauf¬ 
werk entsprechen. Ein Fehler kann zu einem Kurzschluß und 


Kodierstecker -für 
Lau-fwerksnurnmer ( 


dem Defekt der Peripheriebox und der beiden Laufwerke füh¬ 
ren. Also lieber einmal öfter kontrollieren. 

Als nächstes stellen wir die Verbindung der Datenleitungen her. 
Hierzu benutzen wir das von Texas Instruments mitgelieferte 
Kabelstück. Ein Ende paßt auf den rückwärtigen Stecker der 
Disccontrollerkarte. Dieses Ende lassen wir so wie es ist. Am 
anderen Ende pressen wir unseren 34poligen Kartenstecker ca. 
2 cm vom Originalstecker entfernt auf das Kabel auf. Auf 
exakte Kontakte achten. Das ist notwendig, da uns das Adap¬ 
terkabel, das TI normalerweise zum 2. Laufwerk mitliefert, 
nicht zur Verfügung steht. Dieses Kabel dann an das neue 
Laufwerk angeschlossen: PIN 1 muß von vorne gesehen rechts 
sein. 

Die Kodierung der Laufwerksnummer wurde von Texas Instru¬ 
ments mittels der Zwischensteckerplatinen und entsprechender 
Adapterkabel vorgenommen. Das alles haben wir nicht und 
brauchen wir nicht. Die Laufwerksnummer „DSK2“ kodieren 
wir einfach am 2. Laufwerk selbst. Direkt beim 34poligen 
Datenanschluß befindet sich ein kleiner Kodierstecker, bei 
dem 3 Positionen möglich sind. Werksseitig ist Laufwerk „1 “ 
kodiert, d.h. die Brücke ganz rechts ist geschlossen. Wir än¬ 
dern lediglich diese Einstellung auf „2“ = Mitte und unser 
Laufwerk funktioniert als Nr. 2. 

Nunmehr ist die Arbeit im wesentlichen abgeschlossen. Bevor 
wir wieder alles zusammenbauen, sollte noch mit dem Disc- 
managermodul ein Text durchgeführt werden. Am besten eine 
Diskette von Laufwerk 1 auf 2 kopieren. Falls es nicht sofort 
geklappt hat, zuerst nochmal alle Verbindungen kontrollieren. 
Bei einigen Laufwerken kann es auch notwendig sein, beim 
1. Laufwerk, so wie im Handbuch beschrieben, den Neben¬ 
schlußwiderstand zu entfernen oder durch einen anderen Wert 
(meist 210 Ohm zwischen dem 3. Anschlußpaar) zu ersetzen. 
Bei mehreren getesteten Laufwerksumbauten war das jedoch 
nicht notwendig. 

Jetzt noch alles wieder zusammenbauen; das 2. Laufwerk in 
das Gehäuse - reine Handwerksarbeit - eingebaut und los 

f ehen kann’s. 

.S.: Beim Diskmanager 1 kann es mit dem Modul evtl. Pro¬ 
bleme geben. 





MACHEN SIE MIT! 

VERDIENEN SIE GELD MIT IHREM COMPUTER! 


Haben Sie einen TI 99/4A? Können Sie schon 
programmieren? Schreiben Sie Ihre eigenen 
Programme - in Basic und/oder Assembler? Dann 
bietet TI AktueIHhnen die Möglichkeit, mit diesem 
Hobby Geld zu verdienen. - 
Wie? Ganz einfach. Sie senden uns die Pro¬ 
gramme, die Sie für einen Abdruck als geeignet 
halten, zusammen mit-eiher Kurzbeschreibung, 
aus der auch die verwendete Hardware - even¬ 
tuelle Erweiterungen - benutzte Peripherie - her¬ 
vorgehen muß (Schauen Sie sich dazu den Kopf 
unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkässette oder Diskette! Wenn 
die Redaktion sich überzeugt hat, daß dieses Pro¬ 
gramm läuft und sich zum Abdruck eignet, zahlen 


wir Ihnen pro Programm je nach Umfang bis zu 
DM 300,-! 

Sie erhalten Ihre Kassette, Ihre Diskette selbst¬ 
verständlich zurück, wenn Sie einen ausreichend 
frankierten Rückumschlag mit Ihrer Adresse 
beifügen. 

Bei der Einsendung müssen Sie mit Ihrer Unter¬ 
schrift garantieren, daß Sie der alleinige Inhaber 
der Urheber-Rechte sind! Benutzen Sie bitte 
anhängendes Formular! (Wir weisen darauf hin, 
daß auch die Redaktion amerikanische und 
englische Fachzeitschriften liest und „umge¬ 
staltete“ Programme ziemlich schnell erkenn!) 

Um Ihnen die Arbeit zu erleichtern, finden Sie 
hier ein Formular. Sie können es ausschneiden. 


PROGRAMMANGEBOT 


Name des Einsenders: __ 

Straße/Hasnr./Tel.:___— 

Plz/Ort:__ 

Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt () Listings ( ) Kassette () Diskette 

Ich versichere, der alleinige Urheber des Programmes zu sein! 

Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken. Sollte es in den Kassetten-Service aufge¬ 
nommen werden, erhalte ich auch dafür eine entsprechende Vergütung. 


Rechtsverbindliche Unterschrift 


An 

AKTUELL VERLAG 
SCHELLINGSTRASSE 33 
8000 MÜNCHEN 40 


51 



DARAUF HABEN 
SIE GEWARTET! 



DIE 

JAPANER 

KOMMEN 
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ALLES UBER 
COMPUTER 


SCHREIB¬ 
MASCHINE ALS 
DRUCKER 


COMPUTER 
AKTUELL 
Die Zeitschrift 
für alle, 
die einen 
Micro-Computer 
kaufen möchten, 
ohne erst ein 
Physik-Studium 
absolvieren 
zu wollen. 

In klarem Deutsch, 
ohne Technik- 
Chinesisch. 

Mit handfesten 
Kaufempfehlungen, 
Tips und Tricks. 

Für 6,— DM 
(ÖS 52/SFR 6,-) 
beim guten 
Zeitschriften- 
Händler. 


PREISHAMMER 
SCHLÄGT 
WIEDER ZU 


DASIC LEICHT 
GEMACHT 


AUF DEM 

PRÜFSTAND: 

ALPHATRONIC 

C0MM0D0RE 

CREATIVISION 

TANDY COLOR 

ZX SPECTRUM 




